Grafikleri Programlama

Aşağıda, Excel VBA’daki iki programa bakacağız. Bir program, bir sayfadaki tüm grafikler arasında geçiş yapar ve her grafiği bir pasta grafiğe dönüştürür. Diğer program, ilk grafiğin bazı özelliklerini değiştirir.

1. Bazı grafikler oluşturun.

Çalışma sayfasına bir komut düğmesi yerleştirin ve aşağıdaki kod satırını ekleyin:

1. İlk olarak, bir ChartObject nesnesi tanımlamamız gerekiyor. ChartObject nesnesi, bir grafik nesnesi için kapsayıcı görev görür. Ben ChartObject’i grafik olarak tanımlıyorum ama siz herhangi bir isim kullanabilirsiniz.

Dim grafik As ChartObjectCode language: VB.NET (vbnet)

2. ChartObjects koleksiyonu, tüm gömülü grafikleri tek bir sayfada içerir. Biz ilk sayfadaki tüm grafikler arasında dolaşmak istiyoruz. Aşağıdaki For Each Next döngüsünü ekleyin.

For Each grafik In Worksheets(1).ChartObjects

Next grafikCode language: VB.NET (vbnet)

3. Grafik nesnesi, çalışma kitabındaki bir grafiği temsil eder. Her grafiği bir pasta grafiğine dönüştürmek için For Each Next Döngüsüne aşağıdaki kod satırını ekleyin.

grafik.Chart.ChartType = xlPieCode language: VB.NET (vbnet)

Not: grafik değişkeni, Chart nesnesi için bir kapsayıcı görevi görür. Grafik türünü değiştirmek için ChartType özelliğini kullanırız. Her grafiği bir pasta grafiğine dönüştürmek için yerleşik sabit xlPie’yi kullanırız.

4. Sayfadaki komut düğmesine tıkladığınızda sonuç:

Şimdi ilk grafiğin bazı özelliklerini değiştireceğiz.

Çalışma sayfasına başka bir komut düğmesi yerleştirin ve aşağıdaki kod satırlarını ekleyin:

5. ChartObjects koleksiyonu, tüm gömülü grafikleri tek bir sayfada içerir. İlk grafiği etkinleştirmek için aşağıdaki kod satırını ekleyin:

Worksheets(1).ChartObjects(1).ActivateCode language: VB.NET (vbnet)

Artık bu grafiği ActiveChart olarak görebiliriz.

6. Grafik başlığını değiştirmek için aşağıdaki kod satırını ekleyin.

ActiveChart.ChartTitle.Text = "Ciro Raporu"Code language: VB.NET (vbnet)

7. Göstergeyi grafiğin en altına taşımak için aşağıdaki kod satırını ekleyin:

ActiveChart.Legend.Position = xlBottomCode language: VB.NET (vbnet)

8. Sayfadaki komut düğmesine tıkladığınızda sonuç:

Tüm Kodlar:

Option Explicit

Private Sub CommandButton1_Click()

Dim grafik As ChartObject
For Each grafik In Worksheets(1).ChartObjects
   grafik.Chart.ChartType = xlPie
Next grafik

End Sub



Private Sub CommandButton2_Click()

Worksheets(1).ChartObjects(1).Activate
ActiveChart.ChartTitle.Text = "Ciro Raporu"
ActiveChart.Legend.Position = xlBottom

End SubCode language: VB.NET (vbnet)