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/