Von |
almonte |
eMail |
|
Am |
01. Oktober 2008 um 17:05:42 |
Frage |
Hallo, wenn ich den ampu-Wert erhöhe funktioniert die Chart wenn ich im nächsten durchlauf den ampu senke, kommt in der Zeile .RowLabel die Fehlermeldung Laufzeitfehler 1101 ungültiges Funktionsargument hier der CodePublic Sub ampdiagr() Dim Linie&, Position&, Tab1 As MSFlexGrid, akCol&, akRow& Set Tab1 = Xtrem.AmpGrid1 ' Datenquelle '**** Beim FlexGrid sind die Columns und Rows genau '**** umgekehrt wie beim MSChart With Xtrem.AmpChart1 .Plot.Axis(axisID).CategoryScale.DivisionsPerLabel = ampu / (60 / ziv) .Plot.Axis(axisID).CategoryScale.DivisionsPerTick = 60 / ziv .RowCount = Tab1.Cols - Tab1.FixedCols ' Zahl der Werte .ColumnCount = Tab1.Rows - Tab1.FixedRows ' Zahl der Linien .Repaint = True 'False .Refresh For Linie = 1 To .ColumnCount akCol = 1 .Column = Linie akRow = Linie For Position = 0 To .RowCount - 1 .RowLabel = CInt((Position - 1) / (60 / ziv)) & "°°" 'X-Achsen - Beschriftung .Row = akCol .Data = Tab1.TextMatrix(akRow, akCol) 'Werte aus MSFlexGrid zeitgrid akCol = akCol + 1 Next Position Next Linie .Repaint = True End With Set Tab1 = Nothing End Sub wer kann mir weiterhelfen
Danke |
|