|

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

4 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

  2. Hocam grafik kaynağını diziden veya koleksyondan alamıyor muyuz?

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.