(18/08/2020, 22:56)berduş yazdı: Excel sayfasindaki Ilk 3 grafiği düzenledim sonuçları düzgün gösteriyor ama grafik formundaki tablo göstermeyi ve grafiği henüz halledemedim.Sen harikasın ya gerçekten yıllarıda eklemeliyiz haklısın.Yıl seçeneğide olmalı
Charts.Add
ActiveChart.ChartType = xlPie
ActiveChart.SetSourceData Source:=Sheets("Sayfa1").Range("A1:B4"), PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sayfa1"
ActiveChart.HasTitle = False
Sen harikasın ya gerçekten yıllarıda eklemeliyiz haklısın.Yıl seçeneğide olmalı
Kod:
Charts.Add
ActiveChart.ChartType = xlPie
ActiveChart.SetSourceData Source:=Sheets("Sayfa1").Range("A1:B4"), PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sayfa1"
ActiveChart.HasTitle = False