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!

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

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