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")