Copy Pictures Sheet to Sheet Simplified
The following example illustrates how to copy a picture in Excel 2010 from one worksheet to another without having to "Select" it. Error coding must be added as shown in the example.
Program Code
Option Explicit
Sub CopyPictureFromOneWorksheetToAnother()
' *******************************************************
' To Use This Technique, Name the Source Pictures In The
' Cell Address / Range Name Section at the Left
' In The Formula Bar At The Top of the Worksheet
' And Use That Name To Access The Image
' *******************************************************
Dim wkbPictureBook As Workbook
Dim wksSource As Worksheet
Dim wksTarget As Worksheet
Set wkbPictureBook = ThisWorkbook
Set wksSource = wkbPictureBook.Sheets("Short Sleeve Attributes Page")
Set wksTarget = wkbPictureBook.Sheets("Final Cost Estimate")
' *******************************************************
' Select The Target Cell Location For Pasting The Picture
' This Works in Excel 2010
' *******************************************************
With wksTarget
.Activate
.Range("L30").Select
End With
On Error GoTo ErrorInPictureName
' *******************************************************
' Copy And Paste The Picture
' *******************************************************
wksSource.Shapes.Item("MyPictureName").Copy
On Error GoTo 0
wksTarget.Paste
ExitTheSub:
Exit Sub
ErrorInPictureName:
MsgBox ("Picture 'MyPictureName' Does Not Exist")
Resume ExitTheSub
End Sub