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…
Egitimleri nasil veriyirsunuz?
hocam merhaba makro ile oluşturduğun grafik tablonun üzerine çıkarak çakışma yapıyor oluşturacağımız grafiğin yerini nasıl belirliyoruz
Merhaba.
With ActiveSheet.Shapes(“Grafik 1”)
.Left = Range(“A1”).Left
.Top = Range(“A1”).Top
End With
Hocam grafik kaynağını diziden veya koleksyondan alamıyor muyuz?