How to resize multiple images at once in Microsoft Word?
Open the word document,Paste the pictures
Now click on developer mode
Select Visual basic
A Window will open; type the code
Sub resize()
Dim x As Long
With ActiveDocument
For x = 1 To .InlineShapes.Count
With .InlineShapes(x)
.Height = InchesToPoints(2)
.Width = InchesToPoints(3)
End With
Next x
End With
End Sub
Run the macro thats it
