Sub ResizeImage()
' 09/05/2007 by EHopper
'

'Declare Picture Variable
Dim MyPicture As InlineShape

'Here we go throught the document, finding the images and changing them
For Each MyPicture In ActiveDocument.InlineShapes
      MyPicture.Select

      Selection.InlineShapes(1).Height = 54.15
      Selection.InlineShapes(1).Width = 72.55

Next MyPicture

ActiveDocument.Repaginate

End Sub