Friday, September 30, 2011

Word | Resize all images simultaneously

You have hundreads of images in a word document.
You want to grab them all, and set the same width and height.

- Open Developer Tab (may require activating it on Word Options, Popular, "Show Developer tab in the ribbon")
- Create a new macro

Public Sub ResizePics()
Dim oDoc As Document, oShape As InlineShape

Set oDoc = Application.ActiveDocument

For Each oShape In oDoc.InlineShapes
oShape.Height = 270
oShape.Width = 360
Next oShape

Set oDoc = Nothing
End Sub

Remember to convert cm's to pixels

No comments:

Post a Comment