Excel Makro (VBA) ile Grafik Ekleme

Bazen Excel dosyaları ile sunum yaparken grafiklere ihtiyaç duyulabilir. Ancak veri tabloları ve içerik çok fazla olduğunda grafiğe yer kalmayabilir. Bu nedenle grafiği bir komutla, gerekmesi halinde çağırabilirsiniz. Ben kendi yaptığım sunumlarda oldukça sık kullanıyorum. Çünkü sunumun 1 sayfada olması beklenir, grafikleri de eklediğimizde ya veriler okunamayacak kadar küçülür ya da tek sayfaya sığmaz. Aşağıdaki kodu bir butona ekleyin ve grafik verilerinizi A1:B4 aralığına yerleştirin.

Charts.Add
ActiveChart.ChartType = xlPie
ActiveChart.SetSourceData Source:=Sheets("Sayfa1").Range("A1:B4"), PlotBy:= _
    xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sayfa1"
ActiveChart.HasTitle = False

Örnek dosya için tıklayın.

Faydalı olması dileğiyle...