Diagramme löschen
31.10.2005 12:12:52
lexika
kann mir vielleicht jemand sagen was man in folgendem code ändern muß damit er beim schließen der datei alle diagramme löscht?
In Diese Arbeitsmappe:
Private Sub Workbook_Close()
Dim wks As Worksheet
Dim chtChart As ChartObject
' Zeiger auf Worksheet setzen, das die Diagramme enthaelt
Set wks = ThisWorkbook.Sheets(1)
' Alle Chart Objekte des Worksheets durchlaufen und ...
For Each chtChart In wks.ChartObjects
' Chart entfernen
chtChart.Delete
Next chtChart
End Sub
Danke