Shapes löschen
28.09.2007 10:49:30
Benni
ich habe ein kleines Problem. Ich möchte, wenn meine Arbeitsmappe geschlossen wird, dass alle Shapes auf einem bestimmten Arbeitsblatt gelöscht werden bis auf die, die ich explizit ausnehme. Habe dazu folgenden Code geschrieben:
Sub Workbook_Open()
If ActiveSheet.Name = "First Step" Then
ActiveSheet.Unprotect
Dim shp As Shape
Dim shps As Shapes
Set shps = ActiveSheet.Shapes
For Each shp In shps
On Error Resume Next
Select Case shp.Name
Case "Ellipse 70"
Case "Ellipse 71"
Case "Ellipse 72"
Case "Ellipse 73"
Case "Bild 8"
Case "Rechteck 112"
Case "Rechteck 82"
Case "Rechteck 87"
Case "Rechteck 102"
Case "Linie 78"
Case "Bild 15"
Case "Bild 17"
Case "Bild 16"
Case "Rechteck 26"
Case "Autoform 322"
Case "Autoform 23"
Case "Autoform 22"
Case "Autoform 20"
Case "Autoform 19"
Case Else
shp.Delete
End Select
Next
End If
End Sub
Wenn ich das Workbook aber jetzt schließe, dann löscht er mir einfach alle Shapes, ohne Ausnahme. Was mache ich falsch?
Vielen Dank im Voraus,
Gruß, Benni.