Bestimmte Grafiken löschen
26.09.2013 07:53:44
Muehli1991
ich habe folgenden Code, der mir alle Grafiken von 1 bis 100 löschen soll:
Private Sub CommandButton2_Click()
ActiveSheet.Pictures("Grafik " & u & "").Delete
If u = 100 Then
u = 0
Else
u = u + 1
End If
End Sub
Allerdings wird hierbei die Meldung:
"Laufzeitfehler'1004': Die Pictures-Eigenschaft des Worksheet-Objektes kann nicht zugeordnet werden.
Wenn ich nun eine Grafik direkt anspreche (Grafik 1), dann funktioniert das Löschen dieser Grafik. Formuliere ich es allgemein, wie oben, dann funktioniert es nicht.
Wo liegt mein Fehler?
Gruß
Muehli
Anzeige