[SOLVED] Creating a macro in word to resize an image

simjambra · 02-04-2009, 07:23 AM

Hi

I am trying to record a macro in Word 2003 which will resize an images width to 11cm.

The trouble is, the images are all different dimensions, so I need to lock the aspect ratio for the height.

Whenever I try to record a macro, it always reverts to a fixed height.

Please help.

PS I don't know any VB

**macropod** · 02-05-2009, 01:46 AM

Hi simjambra,

You could use a macro like:

Code:

Sub ReformatPictures()
On Error Resume Next
Dim oShp As Shape
Dim iShp As InlineShape
Dim ShpScale As Double
With ActiveDocument
  For Each oShp In .Shapes
    With oShp
      If .Type = msoPicture Or msoLinkedPicture Then
        ShpScale = CentimetersToPoints(11) / .Width
        .Width = .Width * ShpScale
        If .LockAspectRatio = False Then .Height = .Height * ShpScale
      End If
    End With
  Next oShp
  For Each iShp In .InlineShapes
    With iShp
      If .Type = wdInlineShapePicture Or wdInlineShapeLinkedPicture Then
        ShpScale = CentimetersToPoints(11) / .Width
        .Width = .Width * ShpScale
        If .LockAspectRatio = False Then .Height = .Height * ShpScale
      End If
    End With
  Next iShp
End With
MsgBox "Finished Reformatting."
End Sub

simjambra · 02-05-2009, 03:52 AM

Oh thank you. Thank you so much.

You star

02-04-2009, 07:23 AM	#1 (permalink)
simjambra Registered User Join Date: Feb 2009 Posts: 3 OS: Windows XP & Vista	[SOLVED] Creating a macro in word to resize an image Hi I am trying to record a macro in Word 2003 which will resize an images width to 11cm. The trouble is, the images are all different dimensions, so I need to lock the aspect ratio for the height. Whenever I try to record a macro, it always reverts to a fixed height. Please help. PS I don't know any VB

02-05-2009, 03:52 AM	#3 (permalink)
simjambra Registered User Join Date: Feb 2009 Posts: 3 OS: Windows XP & Vista	Re: Creating a macro in word to resize an image Oh thank you. Thank you so much. You star