Excel VBA ile Grafik Oluşturma: Sütun, Çizgi ve Pasta Grafikleri
1. Örnek Veri Tablosu
Aşağıdaki tablo üzerinde grafik oluşturmayı öğreneceğiz.
2. Sütun Grafiği
Sub SutunGrafik()
Range("A1:B6").Select
Charts.Add
ActiveChart.ChartType = xlColumnClustered
End Sub
Ne Yapar?
A1:B6 verileriyle sütun grafiği oluşturur.
📊 Sütun Grafiği
3. Çizgi Grafiği
Sub CizgiGrafik()
Range("A1:B6").Select
Charts.Add
ActiveChart.ChartType = xlLine
End Sub
Ne Yapar?
A1:B6 verileriyle çizgi grafiği oluşturur.
📈 Çizgi Grafiği
4. Pasta Grafiği
Sub PastaGrafik()
Range("A1:B6").Select
Charts.Add
ActiveChart.ChartType = xlPie
End Sub
Ne Yapar?
A1:B6 verileriyle pasta grafiği oluşturur.
🥧 Pasta Grafiği
5. Başlık ve Eksen Adları
Sub GrafikBaslik()
Range("A1:B6").Select
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.HasTitle = True
ActiveChart.ChartTitle.Text = "Aylık Satışlar"
End Sub
İpucu
Başlığı istediğiniz metinle değiştirebilirsiniz.
Aylık Satışlar
📊 Başlıklı Sütun Grafiği
6. Dinamik Verilerle Grafik
Sub DinamikGrafik()
Dim sonSatir As Long
sonSatir = Cells(Rows.Count, 1).End(xlUp).Row
Range("A1:B" & sonSatir).Select
Charts.Add
ActiveChart.ChartType = xlColumnClustered
End Sub
Ne Yapar?
Son satırı otomatik bulur, veri eklendikçe grafik güncellenir.
Avantajları
- Veri eklendikçe otomatik güncellenir
- Manuel aralık seçmeye gerek yok
- Esnek ve pratiktir
7. Geliştirici Sekmesini Aktifleştirme
1. Geliştirici Sekmesini Aktifleştirin
3. Modül Ekleyin
Makro yazma rehberi için tıklayın.
2. VBA Düzenleyici'yi Açın
Alt + F11 (Win) / Option + F11 (Mac)
4. Kodu Çalıştırın
F5 ile çalıştırın.
F5
▶️ Makroyu çalıştır
8. Sıkça Sorulan Sorular
01 Excel VBA ile grafik nasıl oluşturulur?
Charts.Add ile grafik ekleyip ChartType ile türünü seçin.
02 Grafik türü nasıl değiştirilir?
ActiveChart.ChartType = xlColumnClustered / xlLine / xlPie
03 Dinamik grafik nasıl yapılır?
Cells(Rows.Count, 1).End(xlUp).Row ile son satırı bulup aralığı dinamik oluşturun.
04 Mac'te grafik oluşturma çalışır mı?
Evet, aynı kodlar Mac'te de çalışır.
05 Grafiğe başlık nasıl eklenir?
ActiveChart.HasTitle = True ve ActiveChart.ChartTitle.Text = "Başlık" ile.
06 Grafik konumu nasıl ayarlanır?
ActiveChart.Left, ActiveChart.Top, ActiveChart.Width, ActiveChart.Height ile.