Come eliminare i grafici utilizzando vba (con esempi)

È possibile utilizzare i seguenti metodi in VBA per eliminare i grafici in Excel:

Metodo 1: rimuovere tutta la grafica dal foglio attivo

 Sub DeleteActiveSheetCharts()
ActiveSheet.ChartObjects.Delete
End Sub

Questa particolare macro rimuoverà tutti i grafici dal foglio attualmente attivo in Excel.

Metodo 2: rimuovere tutti i grafici dall’intera cartella di lavoro

 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

Questa particolare macro rimuoverà tutti i grafici da ciascun foglio dell’intera cartella di lavoro di Excel.

Gli esempi seguenti mostrano come utilizzare ciascun metodo nella pratica.

Esempio 1: Elimina tutti gli elementi grafici dal foglio attivo

Supponiamo di avere il seguente foglio Excel contenente due grafici:

Possiamo creare la seguente macro per rimuovere tutti i grafici da questo foglio:

 Sub DeleteActiveSheetCharts()
ActiveSheet.ChartObjects.Delete
End Sub

Quando eseguiamo questa macro, riceviamo il seguente output:

Tieni presente che entrambi i grafici sono stati rimossi dal foglio.

Esempio 2: rimuovere tutti i grafici dall’intera cartella di lavoro

Supponiamo di avere un altro foglio nella nostra cartella di lavoro Excel contenente altri due grafici:

Possiamo creare la seguente macro per rimuovere tutta la grafica da entrambi i fogli della cartella di lavoro:

 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

Una volta eseguita questa macro, tutta la grafica su entrambi i fogli verrà eliminata:

Tieni presente che in questo esempio abbiamo rimosso solo i grafici da due fogli, ma questa macro funzionerà con una cartella di lavoro di Excel con un numero qualsiasi di fogli.

Risorse addizionali

I seguenti tutorial spiegano come eseguire altre attività comuni in VBA:

VBA: come eliminare le righe in base al valore della cella
VBA: come eliminare un foglio se il nome contiene testo specifico
VBA: come eliminare i file