Makro ile xlXYScatterLines tipinde grafik oluşturmak

[ahmethasim]

Merhaba arkadaşlar makro ile grafik oluşturmak istiyorum. 3 boyutlu yüzey grafiği oluşturmaktan şimilik vazgeçtim x-y grafiği oluşturmak istiyorum.

Makro ile grafik oluşturmak için hangi komutlara ihtiyacım var acaba?
Biraz inceleyince;

Charts.Add
ActiveChart.ChartType = xlXYScatterLines

kodları gerekiyor. Devamında neler gerekli bana yol gösterebilir misiniz acaba?

ActiveChart.SetSourceData Source:=
ActiveChart.SeriesCollection(1).XValues
ActiveChart.SeriesCollection(1).Values
ActiveChart.SeriesCollection(1).Name

Yukarıdaki kodları açıklayabilir misiniz? Ayrıca başka hangi kodlara ihtiyacım var?

Teşekkürler

İyi çalışmalar

 

[ahmethasim]

Arkadaşlar aşağıdaki gibi grafiği oluşturmaya çalıştım Makro kaydet özelliğine bakarak ama Object variable not set gibi bir uyarı alıyorum bu sorun nerden kaynaklanıyor olabilir? debug ActiveChart.SeriesCollection.NewSeries kod satırını gösteriyor.

Teşekkürler



Public Sub Toplam()

Charts.Add
ActiveChart.ChartType = xlXYScatterLines

For j = 1 To Module1.kesit_sayisi

For t_toplam = 1 To Module1.nokta_sayisi(j)

ActiveChart.SeriesCollection.NewSeries

ActiveChart.SeriesCollection(t_toplam).XValues = "=Sayfa2!" & Sayfa2.Cells(2 + Module1.fark + Module1.donati_sirasi_sayisi(j) * (t_toplam - 1), 12 + Module1.siradaki_donati_adedi(1) * 9 + 23).Address

ActiveChart.SeriesCollection(t_toplam).Values = "=Sayfa2!" & Sayfa2.Cells(2 + Module1.fark + Module1.donati_sirasi_sayisi(j) * (t_toplam - 1), 12 + Module1.siradaki_donati_adedi(1) * 9 + 24).Address

ActiveChart.SeriesCollection(t_toplam).Name = "alfa=" & Sayfa2.Cells(2 + fark_yeni_toplam, 9).Value

Next
Next

End Sub