' 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