Grafik verschieben vba
Martin
Ich möchte eine Grafik sichtbar, und langsam verschieben.
Habe folgenden Code geschrieben:
Sub verschieben1()
ActiveSheet.Shapes("UFO").Top = 10
ActiveSheet.Shapes("UFO").Left = 10
For k = 1 To 120000
Next k
ActiveSheet.Shapes("UFO").Top = 30
ActiveSheet.Shapes("UFO").Left = 30
For k = 1 To 120000
Next k
ActiveSheet.Shapes("UFO").Top = 10
ActiveSheet.Shapes("UFO").Left = 50
For k = 1 To 120000
Next k
ActiveSheet.Shapes("UFO").Top = 30
ActiveSheet.Shapes("UFO").Left = 70
For k = 1 To 120000
Next k
ActiveSheet.Shapes("UFO").Top = 10
ActiveSheet.Shapes("UFO").Left = 90
For k = 1 To 120000
Next k
ActiveSheet.Shapes("UFO").Top = 30
ActiveSheet.Shapes("UFO").Left = 110
End Sub
Leider springt das "UFO" gleich an den letzten Platz. Wie kriege ich das hin, dass die Grafik einen Punkt nach dem anderen anspringt und auf dem Display sichtbar ist.
Das mit der Schlaufe war nur zum Zeit zu gewinnen. Geht aber auch nicht. Eine weitere Idee war, mit:
Application.Wait Time + TimeSerial(0, 0, 1)
Leider geht dies auch nicht wirklich. Kann man die Zeit kleiner als 1 Sec. angeben?
Danke und schöne Grüsse aus der Schweiz
Martin