Vba'da çubuk grafik nasıl oluşturulur (örnekle)

VBA’yı kullanarak Excel’de çubuk grafik oluşturmak için aşağıdaki temel sözdizimini kullanabilirsiniz:

 SubCreateBarChart ()

    Dim MyChart As ChartObject
    
    ' get input range from user
    Set Rng = Application.InputBox(Prompt:=" Select chart input range ", Type:=8)
    
    'create bar chart
    Set MyChart = Worksheets(" Sheet1 ").ChartObjects.Add(Left:=ActiveCell.Left, _
    Width:=400, Top:=ActiveCell.Top, Height:=300)
    MyChart.Chart.SetSourceDataSource:=Rng
    MyChart.Chart.ChartType = xlColumnClustered

End Sub

Bu özel makro, kullanıcıdan bir giriş aralığı isteyecek ve ardından giriş aralığını kullanarak otomatik olarak bir çubuk grafik oluşturacak ve bunu, grafiğin sol üst köşesi o anda etkin olan hücrede olacak şekilde Sayfa1 adlı sayfaya ekleyecektir.

Aşağıdaki örnekte bu makronun pratikte nasıl kullanılacağı gösterilmektedir.

Örnek: VBA’da Çubuk Grafik Nasıl Oluşturulur

Çeşitli basketbolcuların attığı puanlar hakkında bilgi içeren Excel’de aşağıdaki veri kümesine sahip olduğumuzu varsayalım:

Diyelim ki bu veri kümesini kullanarak bir çubuk grafik oluşturmak için VBA’yı kullanmak istiyoruz.

Bunun için aşağıdaki makroyu oluşturabiliriz:

 SubCreateBarChart ()

    Dim MyChart As ChartObject
    
    ' get input range from user
    Set Rng = Application.InputBox(Prompt:=" Select chart input range ", Type:=8)
    
    'create bar chart
    Set MyChart = Worksheets(" Sheet1 ").ChartObjects.Add(Left:=ActiveCell.Left, _
    Width:=400, Top:=ActiveCell.Top, Height:=300)
    MyChart.Chart.SetSourceDataSource:=Rng
    MyChart.Chart.ChartType = xlColumnClustered

End Sub

Bu makroyu çalıştırmak için Excel’in üst şeridindeki Geliştirici sekmesine ve ardından Makrolar’a tıklayabiliriz.

Daha sonra CreateBarChart etiketli olana ve ardından Çalıştır’a tıklayabiliriz:

Çalıştır’a tıkladığımızda, çubuk grafiğimiz için bir giriş aralığı istenecektir:

A1:B7 yazacağız ve ardından OK tuşuna basacağız.

Aşağıdaki çubuk grafik otomatik olarak oluşturulacak ve grafiğin sol üst köşesi o anda etkin olan hücrede ( D1 hücresi) yer alacak şekilde görüntülenecektir:

Not : Çubuk grafiğin sırasıyla genişliğini ve yüksekliğini ayarlamak için ChartObjects.Add() işlevindeki Width ve Height bağımsız değişkenlerinin değerlerini değiştirebilirsiniz.

Ek kaynaklar

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

VBA: Son kullanılan satırı nasıl bulabilirim?
VBA: Aralıktaki satır sayısı nasıl sayılır?
VBA: Kullanılan sütunların sayısı nasıl sayılır?