Simple Macro to copy and paste picture

[Gitterdan]

Hey Guys this is probably an easy one. I have a picture saved in an excel sheet hidden off to the side so no one can see it. I want to have a button that when you click the image is copied and pasted somewhere in the current view. The image is named calendar or picture 665.

Thanks,

 

[Gary McMaster]

Hope this helps. Maybe you could just make your picture visible or invisible instead of moving it around?

Gary

Public Sub Test()

Dim oShape As Shape

'Change "picture 665" (below) as required
Set oShape = ActiveSheet.Shapes("picture 665")

'Move top left corner of picture to cell B3
oShape.Top = ActiveSheet.Range("B3").Top
oShape.Left = ActiveSheet.Range("B3").Left

'Instead of moving picture change visiblity
If oShape.Visible = msoTrue Then
    oShape.Visible = msoFalse
Else
    oShape.Visible = msoTrue
End If

End Sub