Resizing all images in document

[ShSimpson]

I have created a manual and in this I have a number of images and graphics. The person that I submitted this too wants these to be smaller. Is there a way to change all of the images in a document by a certain percentage. I would like to reduce them all by 25%.

[macropod]

Hi ShSimpson,

On the assumption the pictures aren't in-line with the text, you could use a macro like:

Sub Reformat()
Application.ScreenUpdating = False
Dim oShp As Shape
For Each oShp In ActiveDocument.Shapes
  With oShp
    .ScaleHeight 0.75, False
    .ScaleWidth 0.75, False
  End With
Next oShp
Application.ScreenUpdating = True
MsgBox "Finished Reformatting."
End Sub

Note that this will resize every kind of non-inline shape in the document.