Finding and replacing pictures

[andysjp]

Hi all

I am trying to write a macro to replace some old graphics in a Word document with new versions.

The only way I guess it's possible is for the macro to look at each picture in turn, figure out it's height and width (which will then identify which picture it is, as each picture is sized differently, luckily) and then replace it with its updated version (which is saved on my desktop as a JPG).

So for example, in my document, if there are several pictures of a raincloud which are all 1.5cm tall x 1.7cm wide, and several pictures of a sun which is 1.8cm wide x 1.8cm tall, the macro would find the first picture, see that it is 1.8cm x 1.8cm, determine that it must be a sun picture, it then needs to delete it and replace it (in the same place) with the newer version of the sun from my desktop.

I have hundreds of documents with these pictures, hence why I need a macro.

I believe the pictures are all inline shapes.

Happy for the macro to work in pixels/points rather than cm.

Please can anyone help?

Thanks in advance
Andy

[gmaxey]

Perhaps something like this:


Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oILS As InlineShape, oILSNew As InlineShape
Dim lngIndex As Long
Dim oRNg As Range
For lngIndex = ActiveDocument.Range.InlineShapes.Count To 1 Step -1
Set oILS = ActiveDocument.Range.InlineShapes(lngIndex)
If oILS.Height = 72 And oILS.Width = 96 Then
Set oRNg = oILS.Range
Set oILSNew = ActiveDocument.InlineShapes.AddPicture("D:\Test.png", False, True, oRNg)
With oILSNew
oILSNew.LockAspectRatio = oILS.LockAspectRatio
oILSNew.Width = oILS.Width
End With
oILS.Delete
End If
Next
lbl_Exit:
Exit Sub

End Sub

[andysjp]

Thank you so much Greg, this is absolutely spot on.

Much appreciated,
Andy