Hallo,
ich möchte Grafikelemente mit VBA aus einem Tabellenblatt löschen.
In dem Blatt ist auch eine Befehlsschaltfläche.
Mein Code lautet:
For Each shp In ActiveSheet.shapes
If (shp.Type = msoShapeRightTriangle Or _
shp.Type = msoShapeIsoscelesTriangle Or _
shp.Type = msoConnectorStraight Or _
shp.Type = msoShapeRectangle Or _
shp.Type = msoShapeDownArrow Or _
shp.Type = msoConnectorStraight Or _
shp.Type = msoShapeUpArrow _
) Then
shp.Delete
End If
PROBLEM: Sowohl Befehlschaltfläche also auch msoShapeRightTriangle haben shp.Type = 8
Es werden also alle Dreiecke als auch Befehlsschaltflächen gelöscht.
Wie unterscheide ich?
Vielen Dank!