Reduce Pictures to Same Vertical Size With A Macro

[booksgalore]

I frequently download and print (for personal use) articles from the web into Word that have numerous pictures in them.

I would like a macro that can reduce each graphic individually to .7" high when I click on it (they're not in tables, just in text).

Currently I have Picture Size on my Quick Access Toolbar and have to click up to the Toolbar, reduce the size to .7", then return to the text, but a macro would certainly be quicker.

[macropod]

You could use a macro like:

Sub Demo()
Application.ScreenUpdating = False
Dim Shp As Shape, iShp As InlineShapes
With Selection
  For Each Shp In .ShapeRange
    With Shp
      .LockAspectRatio = True
      .Height = InchesToPoints(0.7)
    End With
  Next
  For Each iShp In .InlineShapes
    With iShp
      .LockAspectRatio = True
      .Height = InchesToPoints(0.7)
    End With
  Next
End With
Application.ScreenUpdating = True
End Sub

Simply select the range to process before running it.