Array als Diagrammquelle
05.03.2004 22:09:21
Jochen
es will mir einfach nicht gelingen, einem Diagramm Werte aus einem Array zuzuordnen. Mein Code:
Sub Quelle_Kreis()
Const P As Double = 3.14159265358979 / 180
Dim w As Integer, Dia As Chart, arrX(37), arrY(37)
Set Dia = Sheets("KreisArray").ChartObjects(1).Chart
For w = 0 To 36
arrX(w) = Cos(w * 10 * P)
arrY(w) = Sin(w * 10 * P)
Next
Dia.SeriesCollection(1).XValues = arrX
Dia.SeriesCollection(1).Values = arrY
End Sub
Laufzeitfehler 1004 Die XValues-Eigenschaft konnte nicht zugeordnet werden...
Nehm ich stattdessen einen Zellbereich:
Sub Quelle_Kreis1()
Const P As Double = 3.14159265358979 / 180
Dim w As Integer, Dia As Chart
Set Dia = Sheets("KreisArray").ChartObjects(1).Chart
For w = 0 To 36
Cells(w + 1, 1) = Cos(w * 10 * P)
Cells(w + 1, 2) = Sin(w * 10 * P)
Next
Dia.SeriesCollection(1).XValues = [a1:a37]
Dia.SeriesCollection(1).Values = [b1:b37]
End Sub
klappt das.
Was läuft da schief?
Grüße Jochen