So löschen sie diagramme mit vba (mit beispielen)

Sie können in VBA die folgenden Methoden verwenden, um Diagramme in Excel zu löschen:

Methode 1: Entfernen Sie alle Grafiken vom aktiven Blatt

 Sub DeleteActiveSheetCharts()
ActiveSheet.ChartObjects.Delete
End Sub

Dieses spezielle Makro entfernt alle Diagramme aus dem aktuell aktiven Blatt in Excel.

Methode 2: Entfernen Sie alle Diagramme aus der gesamten Arbeitsmappe

 Sub DeleteAllWorkbookCharts()

Dim wk As Worksheet

For Each wk In Worksheets

    If wk.ChartObjects.Count > 0 Then
        wk.ChartObjects.Delete
    End If
    
Next wk

End Sub

Dieses spezielle Makro entfernt alle Diagramme aus jedem Blatt der gesamten Excel-Arbeitsmappe.

Die folgenden Beispiele zeigen, wie die einzelnen Methoden in der Praxis angewendet werden.

Beispiel 1: Alle Grafiken aus dem aktiven Blatt löschen

Angenommen, wir haben die folgende Excel-Tabelle mit zwei Diagrammen:

Wir können das folgende Makro erstellen, um alle Diagramme aus diesem Blatt zu entfernen:

 Sub DeleteActiveSheetCharts()
ActiveSheet.ChartObjects.Delete
End Sub

Wenn wir dieses Makro ausführen, erhalten wir die folgende Ausgabe:

Beachten Sie, dass beide Diagramme aus dem Blatt entfernt wurden.

Beispiel 2: Entfernen Sie alle Diagramme aus der gesamten Arbeitsmappe

Nehmen wir an, wir haben ein weiteres Blatt in unserer Excel-Arbeitsmappe mit zwei weiteren Diagrammen:

Wir können das folgende Makro erstellen, um alle Grafiken aus beiden Blättern der Arbeitsmappe zu entfernen:

 Sub DeleteAllWorkbookCharts()

Dim wk As Worksheet

For Each wk In Worksheets

    If wk.ChartObjects.Count > 0 Then
        wk.ChartObjects.Delete
    End If
    
Next wk

End Sub

Sobald dieses Makro ausgeführt wird, werden alle Grafiken auf beiden Blättern gelöscht:

Beachten Sie, dass wir in diesem Beispiel nur Diagramme aus zwei Blättern entfernt haben, dieses Makro jedoch mit einer Excel-Arbeitsmappe funktioniert, die eine beliebige Anzahl von Blättern enthält.

Zusätzliche Ressourcen

Die folgenden Tutorials erklären, wie Sie andere häufige Aufgaben in VBA ausführen:

VBA: So löschen Sie Zeilen basierend auf dem Zellenwert
VBA: So löschen Sie ein Blatt, wenn der Name bestimmten Text enthält
VBA: So löschen Sie Dateien