Help with VBA to resize images

[Yuffster]

Hi all,

I have a mail merge document for letters that need a different signature adding to different letters. I have achieved this using the includepicture mergefield function, and then adding in a macro to resize the signatures to fit the space given.



One of the signatures is too small when it is resized according to my macro, so I was wondering if I could add in an IF/THEN style argument to use a different aspect ratio for that particular signature but I am still learning with VBA so any help would be much appreciated. My original macro is as follows:

Sub ResizeSignatures()
Dim targetWidth As Integer
Dim oShp As Shape
Dim oILShp As InlineShape
targetWidth = 2.5

For Each oShp In ActiveDocument.Shapes
With oShp
.Height = AspectHt(.Width, .Height, _
CentimetersToPoints(targetWidth))
.Width = CentimetersToPoints(targetWidth)
End With
Next
For Each oILShp In ActiveDocument.InlineShapes
With oILShp
.Height = AspectHt(.Width, .Height, CentimetersToPoints(targetWidth))
.Width = CentimetersToPoints(targetWidth)
End With
Next
End Sub

[gmayor]

Why not simply adjust the image sizes as required before you insert them into the document during the merge itself? - See http://www.gmayor.com/mail_merge_graphics.htm and http://www.gmayor.com/mail_merge_graphics_addin.htm

[Yuffster]

I tried this initially but was really struggling; I will try again using your handy guide though!