Grafik mit VBA löschen
04.02.2006 23:14:53
WHN
ich habe eine Grafik auf ein Tabellenblatt angelegt und möchte diese Grafik nun mit VBA löschen.
Dazu habe ich mal ein Makro aufgezeichnet, es kam folgender Code dabei heraus.
Sub Makro1
ActiveSheet.Shapes("Picture 8").Select
Selection.Cut
End Sub
Diese Prozedur würde ja schon reichen, wenn nicht bei jedem Löschen und neu einfügen einer Grafik die Grafik eine neue Nummer bekäme, z.B. "Picture 9" usw. So kann ich die Grafik beim selectieren nicht ansprechen weil ich die Nummer nicht weiß.
Gibt es eine Möglichkeit die Nummer der Grafig festzustellen?
Würde mich über Hilfe sehr freuen.
Freundliche Grüße
Werner
Anzeige