Hallo,
habe eine kurze Frage.
Ich plotte über unten stehenden Code verschiedene xlXYScatterLines in ein Diagramm.
Leider werden mir nur max. 15 angezeigt.
Kann es sein dass VBA / Excel da eine Obergrenze irgendwo hinterlegt hat? Und kann ich die ändern?
Würde mich über nen guten Tipp freuen!
Dim Diagramm As ChartObject
Dim Position As Range
For Schritt_S = 1 To Schritte_Steigung
variable = Range(Cells(erste_Z + 1, 7 + Schritt_S), Cells(erste_Z + Schritte_v, 7 + Schritt_S)).Address
With Diagramm.Chart
.ChartType = xlXYScatterLinesNoMarkers
.SeriesCollection.NewSeries
.SeriesCollection(Schritt_S).XValues = Worksheets("Fahrwiderstandsmomente").Range("G6:G206")
.SeriesCollection(Schritt_S).Values = Worksheets("Fahrwiderstandsmomente").Range(variable)
.SeriesCollection(Schritt_S).Format.Line.ForeColor.RGB = RGB(0, 0, 0)
.SeriesCollection(Schritt_S).Name = Schritt_S & " % Steigung"
End With
Next Schritt_S
|