Microsoft Office Forums - View Single Post - [Solved] Reduce Pictures to Same Vertical Size With A Macro

macropod · 08-14-2018, 05:42 PM

You could use a macro like:

Code:

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.