Shapes löschen

24/05/2012 - 08:25 von Jean-Pierre Blanc | Report spam
Hallo

Kann man mit einem Befehl in einem Makro alle shapes einer Tabelle löschen?
Bis jetzt habe ich sie mühsam mit einzelne Befehle gelöscht.
Zum Beispiel: ActiveSheet.Shapes.Range(Array("AutoShape 2")).Delete

Besten Dank für die Hilfe
Gruss Jean-Pierre
 

Lesen sie die antworten

#1 Thomas Kühn
24/05/2012 - 08:50 | Warnen spam
Hallo Jean-Pierre Blanc,

Kann man mit einem Befehl in einem Makro alle shapes einer Tabelle  löschen?
Bis jetzt habe ich sie mühsam mit einzelne Befehle gelöscht.



Versuchs mal hiermit:

Do While ActiveSheet.Shapes.Count > 0
ActiveSheet.Shapes(0).Delete
Loop


Gruß Thomas

Ähnliche fragen