VB Script to Resize All MS Word Images

VB-WordSetupAllPictureSize

#
# Developer tab enabled in Word using File | Options | Customize Ribbon | CHECK Developer option in right column.
#
# Select Visual Basic under Developer tab and Double click on the created Module 1 to edit it
# Paste the following code into the module and then click the Play button at the top to run it on the current document
#

Sub SetupAllPictureSize()
  Dim objInlineShape As InlineShape
  Dim objShape As Shape
  Dim PercentSize As Integer
    
  PercentSize = 60
    
  For Each objInlineShape In ActiveDocument.InlineShapes
    objInlineShape.ScaleHeight = PercentSize
    objInlineShape.ScaleWidth = PercentSize
  Next objInlineShape

  For Each objShape In ActiveDocument.Shapes
    objShape.ScaleHeight PercentSize, True
    objShape.ScaleWidth PercentSize, True
  Next objShape
End Sub