Office: sich drehende Sanduhr

Hi,

ich kann ja bei VBA mit Application.cursor den Cursor auf Sanduhr setzen.

Aber wie kann man die drehende Sanduhr einstellen.
Hab gelesen irgendwie über ein Objekt. Aber wie?
Kann mir da jemand helfen?

Grüße aus München

:)

 

Hallo Florian

Code:

 

Danke.
Versteh ich aber nicht ganz.
Is MousePointer ein Objekt? eine Variable?
Wie kann ich das in Code einbauen? Hab immer nur mit Application.Cursor gearbeitet.

 

Hallo Florian,

hast Du ihn mal so eingearbeitet wie geschrieben?

Gruß Hajo

 

wie meinst du das?
einfach in den Code schreiben
MousePointer = fm...
liefert zwar keinen Fehler, aber auch keine frehende Sanduhr.
Über Application.Cursor krieg ich nur die normale sanduhr

 

Hallo Florian,

in Deinem ersten Beitrag Stand

Dazu hatte ich Dir den Code geliefert. Jetzt schreibst Du

ich sehe da Problem als erledigt an.

Gruß Hajo

 

sorry aber vielleicht verstehe ich dich falsch oder du mich.

Ich will nicht die normale Sanduhr sondern eine sich drehende.
Wenn ich schreibe:

Application.Cursor = xlWait,

krieg ich die normale Sanduhr.
Wie soll ich deinen Code mit MousePointer = ... einbauen?

 

Moin Florian,

welche Art von Cursor angezeigt wird, ist bei Windows unter Systemeinstellungen / Maus / Zeiger hinterlegt. Häufig, aber nicht immer ist unter Hintergrundaktivität oder Ausgelastet eine entsprechende animierte Datei *.ani bzw. *.cur hinterlegt. Mit Application.Cursor = xlWait aktivierst Du sie. Sollte die Grafik bei Dir nicht animiert sein, kannst Du das händisch ändern via dem Durchsuchen Button.

 

Ach so. Dann is das sinnlos, weil das Makro auf verschiedenen PC's ausgeführt wird.
Trotzdem danke für eure Hilfe