BatchResizeAllPictures

Sub BatchResizeAllPictures()
    Dim nPercentSize As Integer
    Dim objInlineShape As InlineShape
    Dim objShape As Shape

    'Enter the percent whcih you want to resize picture to
    nPercentSize = InputBox("Specify the percent of full size", "Resize Picture", 50)

    'Resize all the pictures in this document
    For Each objInlineShape In ActiveDocument.InlineShapes
        objInlineShape.ScaleHeight = nPercentSize
        objInlineShape.ScaleWidth = nPercentSize
    Next

    For Each objShape In ActiveDocument.Shapes
        objShape.ScaleHeight PercentSize / 100, msoCTrue
        objShape.ScaleWidth PercentSize / 100, msoCTrue
    Next
End Sub