Hi,

I am new to VB but have been applescripting for some time. What I would like to do is to select ALL exsisting identical pictures in word document and resize them all. I have pasted what I have done so far, but I am sure that I am way off base. Any help would be greatly appreciated!

Keith

PS.. I attempted to record this action but once I start recording, it will not let me select an image at all. Help with what I am doing wrong here would be appreciated also!

Sub TEST2()
'
' TEST2 Macro

'
Do Until ActiveSheet.Shapes.Count = 0
For i = 1 To Active.Shapes.Count
ActiveSheet.Shapes(i).Select
ActiveSelection.Shapes(i).Height = 270#
ActiveSelection.Shapes(i).Width = 360#
Next i
Loop

End Sub