Vba kullanarak grafikler nasıl silinir (örneklerle)

Excel’deki grafikleri silmek için VBA’da aşağıdaki yöntemleri kullanabilirsiniz:

Yöntem 1: Etkin sayfadaki tüm grafikleri kaldırın

 Sub DeleteActiveSheetCharts()
ActiveSheet.ChartObjects.Delete
End Sub

Bu özel makro, Excel’deki şu anda etkin olan sayfadaki tüm grafikleri kaldıracaktır.

Yöntem 2: Tüm grafikleri çalışma kitabının tamamından kaldırın

 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

Bu özel makro, tüm Excel çalışma kitabının her sayfasındaki tüm grafikleri kaldıracaktır.

Aşağıdaki örnekler her yöntemin pratikte nasıl kullanılacağını göstermektedir.

Örnek 1: Etkin sayfadaki tüm grafikleri silin

İki grafik içeren aşağıdaki Excel sayfasına sahip olduğumuzu varsayalım:

Bu sayfadaki tüm grafikleri kaldırmak için aşağıdaki makroyu oluşturabiliriz:

 Sub DeleteActiveSheetCharts()
ActiveSheet.ChartObjects.Delete
End Sub

Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:

Her iki grafiğin de sayfadan kaldırıldığını unutmayın.

Örnek 2: Çalışma kitabının tamamından tüm grafikleri kaldırın

Diyelim ki Excel çalışma kitabımızda iki grafik daha içeren başka bir sayfamız var:

Çalışma kitabının her iki sayfasındaki tüm grafikleri kaldırmak için aşağıdaki makroyu oluşturabiliriz:

 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

Bu makro çalıştırıldığında her iki sayfadaki tüm grafikler silinecektir:

Bu örnekte grafikleri yalnızca iki sayfadan kaldırdığımızı, ancak bu makronun herhangi bir sayıda sayfa içeren bir Excel çalışma kitabıyla çalışacağını unutmayın.

Ek kaynaklar

Aşağıdaki eğitimlerde VBA’da diğer ortak görevlerin nasıl gerçekleştirileceği açıklanmaktadır:

VBA: Hücre değerine göre satırlar nasıl silinir
VBA: Ad belirli bir metin içeriyorsa bir sayfa nasıl silinir
VBA: dosyalar nasıl silinir