Ebben a makró részletben egy másik munkalapról másolok át képet:

Dim MyPicture As Object
Dim MyTop As Double
Dim BottomRightCell As Range
Dim aktivcella As String
Dim i As Long
Dim kepnev As String
Dim kep As Shape
aktivcella = ActiveCell.Address

...

Variables.Shapes(kepnev).Copy

Range("L1:M2").Select
ActiveSheet.Paste
Variables.Range("C1") = Variables.Range("B1")
Range(aktivcella).Activate
With ActiveWindow.VisibleRange
r = .Rows.Count
Set BottomRightCell = .Cells(r, 12)
End With
Set MyPicture = ActiveSheet.Pictures(1)
MyTop = BottomRightCell.Top - MyPicture.Height - 5
With MyPicture
.Top = MyTop
.Left = 760
End With

"Variables": munkalap kódneve, amin a képeket tárolom

"kepnev": nagyon kreatívan azon változó, amiben a képnek a nevét tárolom. Esetemben generálom egy százalékos kifejezésből.