Bitmaps in Excel #Excel/VBA

Datenausschnitt als bitmap

In Excel macht es gelegentlich Sinn, Daten aus anderen Tabellenblättern nicht zu kopieren und in die aktuelle Ansicht des Tabellenblattes einzufügen, sondern die Daten als Bild an gewünschte Stelle abzulegen.

Der folgende VBA-Code kopiert einen Bildausschnitt aus der Tabelle1 und fügt diesen in Tabelle2 ein.

Sub bmp_erstellen()
Worksheets("Tabelle1").Range("O4:AB10").CopyPicture xlScreen, xlBitmap
Worksheets("Tabelle2").Paste _
    Destination:=Worksheets("Tabelle2").Range("A22")
End Sub

Das erstellen und einfügen von bitmaps kann beliebig oft ausgeführt werden. Sollen dann alle „Bildausschnitte“ gelöscht werden, dann dieses VBA:

Sub bmp_loeschen()
    Dim objShape As Shape
    For Each objShape In Worksheets("Tabelle2").Shapes
        If objShape.Type = msoPicture Then Call objShape.Delete
    Next
End Sub
Total Page Visits: 10 - Today Page Visits: 2