Automatically Sizing Photos with Macros

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

nate - 13 Mar 2008 19:57 GMT

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?

Reply to this Message

Jean-Guy Marcil - 13 Mar 2008 20:46 GMT

> 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

Reply to this Message

Rate this thread: