Beispiel zur CopyPicture-Methode

In diesem Beispiel wird die Bildschirmdarstellung des Bereichs A1:D4 in Sheet1 als Bitmap in die Zwischenablage kopiert und anschließend an anderer Stelle in Sheet1 eingefügt.

Worksheets("Sheet1").Range("A1:D4").CopyPicture xlScreen, xlBitmap
Worksheets("Sheet1").Paste _
    Destination:=Worksheets("Sheet1").Range("E6")