Thema Datum  Von Nutzer Rating
Antwort
Rot Bild (animiert) verschieben
 06.11.2008 06:09:37 Excel-Bastler
NotSolved
06.11.2008 10:28:34 jh
NotSolved
06.11.2008 12:21:12 Excel-Bastler
NotSolved

Ansicht des Beitrags:
Von:
Excel-Bastler		 Datum:
06.11.2008 06:09:37		 Views:
2006		 Rating:
     
Antwort:
  Ja
Thema:
Bild (animiert) verschieben
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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Bild (animiert) verschieben
 06.11.2008 06:09:37 Excel-Bastler
NotSolved
06.11.2008 10:28:34 jh
NotSolved
06.11.2008 12:21:12 Excel-Bastler
NotSolved