Microsoft Office Forums - View Single Post - Add pictures in specific parts of the document and resize them automatically

macropod · 11-04-2015, 06:15 PM

The macro recorder won't provide what you need. The required macro might look like:

Code:

Sub Demo()
Application.ScreenUpdating = False
Dim i As Long
With ActiveDocument
  For i = 1 To .InlineShapes.Count
    With .InlineShapes(i)
      If .Range.Information(wdWithInTable) = True Then
        .Range.Cells(1).Width = .Width
      End If
    End With
  Next
End With
Application.ScreenUpdating = True
End Sub