Inserting and formatting photos in word 2013

macropod · #1 07-03-2014, 11:39 PM

The picture insertion behaviour is primarily determined by your Word options. Under File|Options|Advanced>Cut, Copy & Paste>Insert/Paste pictures as, you can choose 'In-line with text' or one of the floating formats. Only the 'In-line with text' option will give you the behaviour desired for your macro. Even with that option, however, if you drag & drop an image that's in a 'floating' format from another document, or from another location in the same document, the format won't change to 'In-line with text' at the destination.

Try the following revision to your code. Do note that any Shape objects that get converted to InlineShapes are liable to change position to wherever they are anchored.

Code:

Sub AfbeeldingImporteren()
Dim i As Long
With Selection
  'Convert floating shapes to inline
  For i = .ShapeRange.Count To 1 Step -1
    .ShapeRange(i).ConvertToInlineShape
  Next
  'process all InlineShapes
  For i = 1 To .InlineShapes.Count
    With .InlineShapes(i)
      ' retain aspect ratio
      .LockAspectRatio = msoTrue
      ' set width to 225 px
      newWidth = 225
      .Width = newWidth
      ' Add Borders
      With .Line
        .Weight = 0.75
        .DashStyle = msoLineSolid
        .Visible = msoTrue
        .ForeColor.RGB = RGB(0, 0, 0)
      End With
    End With
  Next
End With
End Sub

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