Alle Charts löschen
02.02.2004 14:42:02
Christoph Dümmen
ich möchte gerne alle Charts in der Mappe löschen.
Unten abgebildeter Code führt aber immer wieder zum Fehler.
--Die Delete-Methode des ChartObject konnte nicht ausgeführt werden--
oder
--Die Name-Eigenschaft des ChartObject kann nicht zugeordnet werden--
wenn ich Versuche, das Chart anzusprechen (c.name)
--Automatisierungsfehler. Das aufgerufene Object wurde von den Clients getrennt--
wenn ich versuche das Chart zu aktivieren (c.activate)
Wer weiß Rat?
Danke
Christoph
Sub ChartsDelets()
dim sh as Worksheet
dim c as ChartObject
for each sh in activeworkbook.worksheets
for each c in sh.chartobjects
c.delete
next c
next sh
End Sub