Hallo zusammen.
Kann es sein, dass die Zuweisung für Xvalues und Values eines Chart-Objektes auf max. 255 Punkte begrenzt ist?
Ich weise aus dem Programm heraus die x- und y-Werte für Grafiken vom Typ "Punktxy" zu. Dabei werden deutlich mehr als die 255 Wertepaare benötigt.
Wie kann ich diese Begrenzung umgehen?
Im folgenden Beispiel werden die Daten für die einzelnen Linien (i=Serie) als dynamische Felder (Redim Preserve) gefüllt. Die Größe ist also serienweise unterschiedlich, aber oft >10000.
Code:
Option Explicit
Public Type grfSerie
grfdaten() As Double
End Type
Public grfXDat() As grfSerie
Public grfYDat() As grfSerie
Dim objChartObject As ChartObject
Set objChartObject = Worksheets(1.ChartObjects.Add(ax, ay, w, h)
For i = 0 To UBound(grfXDat)
.Chart.SeriesCollection(i).XValues = grfXDat(i).grfdaten
.Chart.SeriesCollection(i).Values = grfYDat(i).grfdaten
Next i
------------------
----------------
"Ich stimme mit der Mathematik nicht überein. Ich meine, daß die Summe von Nullen eine gefährliche Zahl ist." (Stanislaw Jerzy Lec)
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP