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