Cara menghapus grafik menggunakan vba (dengan contoh)

Anda dapat menggunakan metode berikut di VBA untuk menghapus grafik di Excel:

Metode 1: Hapus semua gambar dari lembar aktif

 Sub DeleteActiveSheetCharts()
ActiveSheet.ChartObjects.Delete
End Sub

Makro khusus ini akan menghapus semua bagan dari lembar yang sedang aktif di Excel.

Metode 2: Hapus semua bagan dari seluruh buku kerja

 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

Makro khusus ini akan menghapus semua bagan dari setiap lembar seluruh buku kerja Excel.

Contoh berikut menunjukkan cara menggunakan masing-masing metode dalam praktik.

Contoh 1: Hapus semua grafik dari lembar aktif

Misalkan kita memiliki lembar Excel berikut yang berisi dua grafik:

Kita dapat membuat makro berikut untuk menghapus semua grafik dari sheet ini:

 Sub DeleteActiveSheetCharts()
ActiveSheet.ChartObjects.Delete
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Perhatikan bahwa kedua bagan telah dihapus dari lembar.

Contoh 2: Hapus semua bagan dari seluruh buku kerja

Katakanlah kita memiliki lembar lain di buku kerja Excel kita yang berisi dua bagan lagi:

Kita bisa membuat makro berikut untuk menghapus semua grafik dari kedua lembar buku kerja:

 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

Setelah makro ini dijalankan, semua grafik di kedua lembar akan dihapus:

Perhatikan bahwa dalam contoh ini kami hanya menghapus bagan dari dua lembar, namun makro ini akan berfungsi dengan buku kerja Excel yang memiliki jumlah lembar berapa pun.

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

VBA: Cara menghapus baris berdasarkan nilai sel
VBA: Cara menghapus sheet jika namanya mengandung teks tertentu
VBA: cara menghapus file