Automatically Sizing Photos with Macros

[nate]

I would like to add a number of pictures in Word 07 and have a macro
automatically size them to 2.25" x 3.00". What marco would I need to use?

 

[Jean-Guy Marcil]

I would like to add a number of pictures in Word 07 and have a macro
automatically size them to 2.25" x 3.00". What marco would I need to use?

For inline pictures:

Sub ResizeInlinePix()

Dim i As Long

With ActiveDocument.InlineShapes
For i = 1 To .Count
With .Item(i)
If .Type = wdInlineShapePicture Then
.Width = InchesToPoints(3)
.Height = InchesToPoints(2.25)
End If
End With
Next
End With

End Sub




And for floating pictures:


Sub ResizeFloatingPix()

Dim i As Long

With ActiveDocument.Shapes
For i = 1 To .Count
With .Item(i)
If .Type = msoPicture Then
.LockAspectRatio = msoFalse
.Width = InchesToPoints(3)
.Height = InchesToPoints(2.25)
End If
End With
Next
End With

End Sub