Bilder aus Zelle mit Makro kopieren

Wie kann ich ein Bild das in der Spalte "B" liegt mit unten stehendem Makro (mit)-kopieren.

Vielen Dank im voraus.

Sub Copy_zu_Rev_A()
Zeile = ActiveCell.Row
Range(Cells(Zeile, 2), Cells(Zeile, 8)).Copy
ThisWorkbook.Saved = True
ActiveWorkbook.Close
End Sub