Hallo
ich wollte ein Bild, wenn man draufklickt animiert nach links verschieben (Pixel um Pixel). Die Befehle sind mir bekannt. Und da der Computer ja eh zu schnell ist, habe ich sogar noch eine Verlangsamung eingebaut, um zwischen jedem verschieben des Bildes um einen Pixel nach links, den Computer zu beschäftigen, damit es auch fürs Auge ersichtlich ist.
Das ganze sieht etwa so aus:
Sub links_verschieben()
'erstmal Bild in den Vordergrund bringen
ActiveSheet.Shapes("Bild_1").Select
Selection.ShapeRange.ZOrder msoBringToFront
For x = 1 To 92
ActiveSheet.Shapes("Bild_1").Select
'Computer ein paar Millisekunden beschäftigen
For y = 1 To 50
Sheets("Test").Range("A1") = y
Next y
'einen Pixel nach links verschieben
Selection.ShapeRange.IncrementLeft -0.75
x = x + 1
'das ganze 92 Mal/Pixel wiederholen
Next x
End Sub
Das Problem ist: Es werden schon alle Befehle durchgeführt, jedoch wird erst am Schluss das Resultat ersichtlich => Bild in den Vordergrund - erst am Schluss, und die Bildposition am Schluss stimmt auch, nur ist nicht die einzelne Verschiebung des Bildes ersichtlich.
Normalerweise verhindere ich sowas mit ScreenUpdate, aber jetzt möchte ich endlich Mal, dass man am Bildschirm sieht was passiert, und dann funktionierts nicht :-(
Weiss da jemand weiter?
danke |