ich erzeuge per VBA 20 Linien
Ich möchte gerne, dass die Linien einzeln auftauchen, dass man ihnen beim Auftauchen zusehen kann.
Dazu habe ich eine Verzögerungsschleife eingebaut, die aber nichts bewirkt, Es wird immer am Schluss alles zusammen angezeigt, auf einen Schlag.
Setze ich einen Haltepunkt, z.B. auf "set sh ,,," und klicke durch, dann tauchen die Linien einzeln auf,
Warum bewirkt meine Verzögerungsschleife nichts und wie könnte ich mein Ziel erreichen.
Danke für Tipps
Code
Public Sub test()
Dim sh As Shape
With Sheets("Tabelle1")
For y = 100 To 200 Step 5
Set sh = .Shapes.AddLine(0, y, 100, y)
For i = 1 To 20000000
Next i
Next y
End With
End Sub