Friday, September 30, 2011

Word | Resize all images simultaneously

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

Solution:
- 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
http://www.translatorscafe.com/cafe/units-converter/typography/calculator/pixel-%28X%29-to-centimeter-%5Bcm%5D/

No comments:

Post a Comment