Inserting and formatting photos in word 2013

tha_slughy · #1 07-01-2014, 12:15 AM

Hello,

I have one problem, consisting of two issues. I use a lot of pictures in word reports, as to date in previous word versions I could easily process my pictures with a vba macro.

In order not to waste too much time I drag and drop the pictures in their required space, as an inlineshape and then resize these pictures to the required size.

As from word 2013 I noticed an oddity. The pictures which you drag and drop are sometimes inlineshape and sometimes not. As a result the macro not always works.

Moreover when the macro does work, it encounters different issues which I did not encounter in previous word versions.

To recap, the goal is to drop a photo (jpg) into a word document and be able to run a macro on it with a hotkey. The required actions are lock the aspect ratio, resize the width and fit the photo with a black solid border.

The current used macro is as follows:

Code:

Sub AfbeeldingImporteren()
'
' ResizeImage Macro
'
    Dim shape As InlineShape
    ' iterate all selected shapes
    For Each shape In Selection.InlineShapes
        ' remain aspect ratio
        shape.LockAspectRatio = msoTrue
        ' set width to 225 px
        newWidth = 225
        ' shape.Height = (newWidth / shape.Width) * shape.Height
        shape.Width = newWidth
        ' Add Borders
        Selection.InlineShapes(1).Line.Weight = 0.75
        Selection.InlineShapes(1).Line.DashStyle = msoLineSolid
        Selection.InlineShapes(1).Line.Visible = msoTrue
        Selection.InlineShapes(1).Line.ForeColor.RGB = RGB(0, 0, 0)
        
    Next

'
'
End Sub

All help resolving these two (probably connected) issues would be great!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Help formatting Pictures inside a Text Box in Word 2013	jstumbo87	Word	2	01-29-2014 12:07 PM
Word 2013 vs Word 2010 formatting issue?	rhoyt	Word	1	12-07-2013 09:40 AM
TOC Page number Formatting - Word 2013	Adam83	Word	6	11-01-2013 12:00 PM
Inserting photos	casatropical	Word	1	01-18-2012 10:30 AM
Inserting / formatting multiple photos into Word doc.	Jeremiahts	Drawing and Graphics	1	03-23-2011 07:33 PM