Option Explicit
Private WithEvents cmbrs As CommandBars

Private Sub Workbook_Activate()
    Set cmbrs = Application.CommandBars
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Set cmbrs = Application.CommandBars
End Sub

Private Sub cmbrs_OnUpdate()
    Call ManipulateImage
End Sub

Private Sub ManipulateImage()
    Dim shp As Shape, shpPosition As String, shpName As String, shpCheck As Shape
    Set shp = GetShape
    If Not shp Is Nothing And ActiveSheet.Index = 1 Then
        shpName = shp.Name
        For Each shpCheck In Worksheets(2).Shapes
            If shpCheck.Name = shpName Then
                End
            End If
        Next shpCheck
        Let shpPosition = shp.TopLeftCell.Address(0, 0)
        shp.Copy
        shp.Delete
        Worksheets(2).Activate
        Worksheets(2).Paste Range(shpPosition)
        Worksheets(1).Activate
        'Worksheets(2).Shapes(Worksheets(2).Shapes.Count).Name = shpName
    End If
End Sub

Private Function GetShape() As Shape
    If TypeName(Selection) = "Picture" Then Set GetShape = Application.Selection.ShapeRange.Item(1)
End Function