Sub AABB()
' Create a duplicate from
Set SourceShape = ActiveSheet.Shapes(1)
Set StartRow = SourceShape.TopLeftCell
Set CopyShape = SourceShape.Duplicate()

' Set new position
CopyShape.Left = SourceShape.Left
CopyShape.Top = StartRow.Top + SourceShape.Height

End Sub

put a copy of the shape right below the original for me. xl2003.

--
Regards,
Tom Ogilvy


"Asko Telinen" wrote:


Hi all.

I have an image object inserted into sheet. What i need is to make a
copy of that image and move it to new location using VBA. I tried
Duplicate method defined in Shape object but that doesn´t work. Sure it
makes a copy of Shape object and everything goes smoothly (no errors
during duplicate) but image inside original shape object will not be
copied to new one!!! All i get is empty shape object and no picture!!!
Do i miss something or this is an bug?

Code:

' Create a duplicate from
Set CopyShape = sourceShape.Duplicate()

' Set new position
CopyShape.Left = sourceShape.Left
CopyShape.Top = startRow.Top + sourceShape.Top


Tried this code in both, excel 97 and 2003 pro, same result....
All servicepacks are installed.

OS: Windows XP Pro.


cheers....

Asko.