VBA resize images in word

‘Resize all images in Word Document
‘ Macro1 Macro


Dim i As Long
With ActiveDocument

For i = 1 To .InlineShapes.Count

With .InlineShapes(i)

.Height = 300 ‘change height you want
.Width = 435 ‘change height you want

End With

Next i

End With

Advertisements
Posted in VBA