XY-Charts und VBA
27.12.2008 21:57:00
RolfFFM
ich würde gerne den Inhalt von Diagrammen, speziell eines XY-Diagramms, über VBA steuern, krieg's aber nicht hin.
Unter https://www.herber.de/bbs/user/57921.xls
habe ich ein Beispiel hinterlegt. Das Diagramm soll die Funktion y=x*x darstellen. Hinter der Schaltfläche verbirgt sich das folgende Makro:
Sub PunktLäuft()
Dim n As Integer
Dim X As Double 'X-Werte
Dim Y As Double 'Y-Werte
For n = 1 To 20
Y = n * n
Worksheets(1).ChartObjects(1).Activate
ActiveChart.SeriesCollection(1).XValues = n
ActiveChart.SeriesCollection(1).Values = Y
Application.Wait (Now() + TimeValue("00:00:01"))
Next
End Sub
2 Fragen dazu:
Die wichtige:
Ich möchte das Makro so umgestalten, dass bei jedem Durchgang von n nicht nur der aktuelle Wert, sondern auch die vorherigen Punkte angezeigt werden. Wie geht das?
die weniger wichtige:
ich muss in diesem Makro das Diagramm erst aktivieren, bevor ich damit arbeiten kann. Die Zeile
Worksheets(1).ChartObjects(1).SeriesCollection(1).XValues = n
führt zumindest bei meiner Version zu einer Fehlermeldung. Gibt es dafür eine Erklärung?
Danke für die Infos und die Hilfe!
Rolf