Die folgende Befehlsequenz zeigt eine Schleife aus meinem Projekt zur grafischen Darstellung von Funktionsgrafen.
’Code
Set Kurve = Worksheets(1) 'Funktionsgraf zeichnen
For i = 1 To (ObGrenze - UntGrenze) / Schritt
With Kurve.Shapes.AddLine(Y(1, i) - FalschwertX, Y(2, i), Y(3, i) - FalschwertX, _
Y(4, i)).Line
.DashStyle = msoLineSingle
.ForeColor.RGB = RGB(256, 0, 0)
End With
Next i
Unload UserForm1
’Code
Wahlweise kann das Programm auch den integrierten und/oder den differenzierten Grafen darstellen. Das Projekt besteht aus 2 Userformularen,
3 Modulen und 1 Klassenmodul für die Erzeugung des spezifischen Koordinatensystems.
Die auf das Koordinatensystem kalibrierten Funktionswerte sind im Array Y() As Double
zwischengespeichert.
ObGrenze – UntGrenze ist der Definitionsbereich des Grafen; Schritt entspricht der Länge der einzelnen Teilgeraden und somit der Genauigkeit.
Bei kleinem Schritt und entsprechend großem ObGrenze – UntGrenze ist der Rechenaufwand recht erheblich. Bei einer Zahl der benötigten Schleifendurchläufe im mittleren 5-stelligen Bereich steigt Excel in der Schleife mit „keine Rückmeldung“ aus.Ich habe das Programm über Nacht laufen lassen und immer noch: der Task-Manager zeigt „ Excel inaktiv“.
Ich könnte mir vorstellen, dass das Betriebssystem mit der Aktualisierung des Bildschirms nicht hinterher kommt und irgend ein Puffer voll läuft.
Hab’s mit application.displayalerts.false …. application.displayalerts.true versucht, geht auch nicht. Ihr habt mir schon 2 mal geholfen; vielleicht klappt’s noch mal.
Gruß Matthias