alle autoformen bis auf commandbutton1...
12.09.2005 08:21:11
frank
mein problem:
ich möchte alle shapes löschen ausser den commandbutton1 wie stelle ich das an?
hier mein code mit typen unverträglich:
Sub weg()
Dim s As Shape
For Each s In ActiveSheet.Shapes
If s.AutoShapeType <> "CommandButton.1" Then s.Delete
Next
End Sub
vielen dank schonmal für eure hilfe
gruß frank