Copy and paste a shape into a cell

[tonywatsonhelp]

Hi Everyone,
I have a shape named "Test_1"
I simply want to know how to copy it and paste it into Range ("A1")?
Thanks
Tony

 

[Alex Blakenburg]

Does this do what you need ?

Sub copyShape()

    Dim ws As Worksheet
   
    Set ws = ActiveSheet
    ws.Shapes("Test_1").Copy
    ws.Paste Destination:=ws.Range("a1")


End Sub

 

[tonywatsonhelp]

Oh, as simple as that! lol
well thank you Alex, this saved me a lot of problems
Tony