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
Remember to convert cm's to pixels
http://www.translatorscafe.com/cafe/units-converter/typography/calculator/pixel-%28X%29-to-centimeter-%5Bcm%5D/
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/
Comments
Post a Comment