VNA Code to Copy and Paste a Shape

[MikeG]

I have a shape called "Company Logo". Could any one give me the code to copy the shape from sheet 1 and paste to sheet 2?


(I tried macro record but had trouble when I pasted it into another macro).

Thanks,

MikeG

 

[oldbrewer]

If you do the the whole job with macro record on, and it works, and you stop the macro, the macro will do it again perfectly.

 

[oldbrewer]

Why did you paste it into another macro?

 

[JLGWhiz]

I have a shape called "Company Logo". Could any one give me the code to copy the shape from sheet 1 and paste to sheet 2?


(I tried macro record but had trouble when I pasted it into another macro).

Thanks,

MikeG

You can try something like the following;
First, select the shape.

Sub copySh()
Selection.Copy
Sheets(2).Paste
With Selection
 .Top = 100 'Adjust to desire
 .Left = 100 'Adjust to desire
End with
End Sub

 

[sergioMabres]

Like this

    ActiveSheet.Shapes.Range(Array("Company Logo")).Select
    Selection.Copy
    Sheets(2).Select
    Range("A1").Select
    ActiveSheet.Paste

This is what you need?