ResizePic

' Resizes selected pictures to 6" wide
On Error Resume Next
Dim oShp As Shape
Dim iShp As InlineShape
Dim ShpScale As Double
With Selection
  For Each iShp In .InlineShapes
    With iShp
      If .Type = wdInlineShapePicture Or wdInlineShapeLinkedPicture Then
        ShpScale = InchesToPoints(6) / .Width
        .Width = .Width * ShpScale
        .Height = .Height * ShpScale
      End If
    End With
  Next iShp
End With