/ / Excel Makro (VBA) ile Grafik Ekleme
Bilgisayar | EXCEL

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…

Similar Posts

3 Comments

  1. 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

    1. Merhaba.
      With ActiveSheet.Shapes(“Grafik 1”)
      .Left = Range(“A1”).Left
      .Top = Range(“A1”).Top
      End With

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

This site uses Akismet to reduce spam. Learn how your comment data is processed.