|

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 yanıt yazın

E-posta adresiniz yayınlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

Bu site, istenmeyenleri azaltmak için Akismet kullanıyor. Yorum verilerinizin nasıl işlendiği hakkında daha fazla bilgi edinin.