Microsoft Office Forums - View Single Post - [Solved] Resize multiple pictures in a Word 2010 table

macropod · 01-24-2014, 08:51 PM

Assuming your pictures are inserted in-line, try:

Code:

Sub Demo()
Dim iShp As InlineShape
For Each iShp In ActiveDocument.Tables(1).Range.InlineShapes
  With iShp
    .LockAspectRatio = False
    .Height = InchesToPoints(3.8)
    .Width = InchesToPoints(2.75)
  End With
Next
End Sub

Although this will do as you ask, I'm not sure disabling the LockAspectRatio is a good idea. That might result in some images getting messed about.