Macro to copy picture image from one worksheet to another

[Swifey]

Hi could you please help me I’m copying a picture image from one worksheet to another via a macro. When I do it manually it works fine but when I rum my code the picture image is not there.

My code is as follows

'Sheets("Sheet3").Select
'ActiveSheet.Shapes("Picture 1").Select
'Selection.Copy
'Worksheets(1).Activate
'Range("A1").Select
'ActiveSheet.Paste
'Range("D9").Select
'Sheets("Sheet3").Select
'Range("B16").Select
'Sheets("Sheet3").Select
'ActiveWindow.SelectedSheets.Delete
'Range("A11").Select
'Worksheets(1).Activate

Swifey

 

[Andrew Poulsom]

Re: Macro to copy picture image from one worksheet to anothe

This worked for me:

Sub Test()
    Worksheets("Sheet3").Shapes("Picture 1").Copy
    Worksheets(1).Paste Range("A1")
End Sub

 

[Swifey]

Re: Macro to copy picture image from one worksheet to anothe

Thank you

 

[Swifey]

Re: Macro to copy picture image from one worksheet to anothe

I'm sorry but I cant get it to work. I applied your code but the Logo still dosnt appear on the sheet.

Regards
Swifey

 

[Andrew Poulsom]

Re: Macro to copy picture image from one worksheet to anothe

Can I suggest you turn on the Macro recorder, copy the picture manually and have a look at the code? It should be similar to mine, except that selections are made.

 

[Swifey]

Re: Macro to copy picture image from one worksheet to anothe

ok

 

[Swifey]

Re: Macro to copy picture image from one worksheet to anothe

The following is the system macro code. Which works when I run the macro.
But when I change "Sheets("Hill").Select" to "Worksheets(1).Activate" the logo dosnt come through - The reason why I use this code is because the worksheet name is different everytime.

Sheets("Sheet3").Select
ActiveSheet.Shapes("Picture 1").Select
Selection.Copy
Sheets("Hill").Select
Range("A1").Select
ActiveSheet.Paste
Selection.ShapeRange.IncrementLeft -0.75
Selection.ShapeRange.IncrementTop -8.25
Range("D10").Select

Regards
Lynda

 

[Andrew Poulsom]

Re: Macro to copy picture image from one worksheet to anothe

If you run this:

MsgBox Worksheets("Hill").Index

what number does it return?

 

[Swifey]

Re: Macro to copy picture image from one worksheet to anothe

It returns 3

Swifey

 

[Swifey]

Re: Macro to copy picture image from one worksheet to anothe

Thank you it works a treat - I can see now what the index returns.

Thank you once again
Swifey