Re-sizeing Multiple Pictures at the Same Time

[markaessex]

Hello, I have a requierment to increase the size of a number of
pictures that have been inserted into MS Word. The issue is that I
have around 30 pictures within each file and I have 50 files or more.
Each picture within the document is smaller than required. I would
prefer not to have to select each picture uniquely and change the size
of it but I cannot seem to select them all at once within each
document and apply a re-size to them all. If someone could help me
with this, it would be greatly appreciated. Thanks - Mark

 

[Greg Maxey]

The following macro code will blow up each picture 150%.

Sub ScratchMacro()
Dim oShape As InlineShape
For Each oShape In ActiveDocument.InlineShapes
If oShape.Type = wdInlineShapePicture Then
With oShape
.ScaleHeight = 150
.ScaleWidth = 150
End With
End If
Next oShape
End Sub

You could add this code to a batch file macro to process all files:

http://gregmaxey.mvps.org/Process_Batch_Folder.htm