Merhaba Arkadaşlar
Ben yeni üyenizim.Herkese sevgi ve saygılarımı sunuyorum.
Private Sub UserForm_Activate()
Dim SeriIsmi(1)
Dim Degerler(3)
Dim Sabitler
Dim YeniGrafik
SeriIsmi(0) = "Örnek Değer"
Degerler(0) = Val(Me.Label4.Caption)
Degerler(1) = Val(Me.Label5.Caption)
Degerler(2) = Val(Me.Label6.Caption)
Set Sabitler = ChartSpace1.Constants
' Chartspace1'e yeni bir grafik ekler.
Set YeniGrafik = ChartSpace1.Charts.Add
' Grafik türünü belirler.
YeniGrafik.Type = Sabitler.chChartTypePie3D
' Grafiği dizilere bağlar.
YeniGrafik.SetData Sabitler.chDimSeriesNames, _
Sabitler.chDataLiteral, SeriIsmi
YeniGrafik.SeriesCollection(0).SetData Sabitler.chDimValues, _
Sabitler.chDataLiteral, Degerler
End Sub
şeklinde bir kodlama var bu kodlamalar userform üzerinde bulunan label'lardan değerleri alıp yine userform üzerinde bulunan "chartspace" üzerinde grafik gösteriyor.
Soruma gelince;
Her userform açıldığında 1,2,3....grafik ekleniyor.
Benim istediğim sabit grafik üzerinde değerler değiştikçe grafiğin değerleri değişsin.
Sevgi ve saygıyla
Ben yeni üyenizim.Herkese sevgi ve saygılarımı sunuyorum.
Private Sub UserForm_Activate()
Dim SeriIsmi(1)
Dim Degerler(3)
Dim Sabitler
Dim YeniGrafik
SeriIsmi(0) = "Örnek Değer"
Degerler(0) = Val(Me.Label4.Caption)
Degerler(1) = Val(Me.Label5.Caption)
Degerler(2) = Val(Me.Label6.Caption)
Set Sabitler = ChartSpace1.Constants
' Chartspace1'e yeni bir grafik ekler.
Set YeniGrafik = ChartSpace1.Charts.Add
' Grafik türünü belirler.
YeniGrafik.Type = Sabitler.chChartTypePie3D
' Grafiği dizilere bağlar.
YeniGrafik.SetData Sabitler.chDimSeriesNames, _
Sabitler.chDataLiteral, SeriIsmi
YeniGrafik.SeriesCollection(0).SetData Sabitler.chDimValues, _
Sabitler.chDataLiteral, Degerler
End Sub
şeklinde bir kodlama var bu kodlamalar userform üzerinde bulunan label'lardan değerleri alıp yine userform üzerinde bulunan "chartspace" üzerinde grafik gösteriyor.
Soruma gelince;
Her userform açıldığında 1,2,3....grafik ekleniyor.
Benim istediğim sabit grafik üzerinde değerler değiştikçe grafiğin değerleri değişsin.
Sevgi ve saygıyla