Grafieken verwijderen met vba (met voorbeelden)

U kunt de volgende methoden in VBA gebruiken om diagrammen in Excel te verwijderen:

Methode 1: Verwijder alle afbeeldingen van het actieve blad

 Sub DeleteActiveSheetCharts()
ActiveSheet.ChartObjects.Delete
End Sub

Deze specifieke macro verwijdert alle diagrammen van het momenteel actieve blad in Excel.

Methode 2: Verwijder alle diagrammen uit de hele werkmap

 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

Deze specifieke macro verwijdert alle diagrammen van elk blad van de gehele Excel-werkmap.

De volgende voorbeelden laten zien hoe u elke methode in de praktijk kunt gebruiken.

Voorbeeld 1: Verwijder alle afbeeldingen van het actieve blad

Stel dat we het volgende Excel-blad hebben met daarin twee grafieken:

We kunnen de volgende macro maken om alle diagrammen van dit blad te verwijderen:

 Sub DeleteActiveSheetCharts()
ActiveSheet.ChartObjects.Delete
End Sub

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

Houd er rekening mee dat beide diagrammen van het blad zijn verwijderd.

Voorbeeld 2: Verwijder alle diagrammen uit de gehele werkmap

Laten we zeggen dat we nog een blad in onze Excel-werkmap hebben met nog twee diagrammen:

We kunnen de volgende macro maken om alle afbeeldingen van beide bladen van de werkmap te verwijderen:

 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

Zodra deze macro is uitgevoerd, worden alle afbeeldingen op beide bladen verwijderd:

Houd er rekening mee dat we in dit voorbeeld alleen diagrammen van twee werkbladen hebben verwijderd, maar dat deze macro werkt met een Excel-werkmap die een willekeurig aantal werkbladen bevat.

Aanvullende bronnen

In de volgende tutorials wordt uitgelegd hoe u andere veelvoorkomende taken in VBA kunt uitvoeren:

VBA: rijen verwijderen op basis van celwaarde
VBA: een blad verwijderen als de naam specifieke tekst bevat
VBA: hoe bestanden verwijderen