[de-users] Makro -> Bildschirmmeldung während einer Schleife

Hallo *,

kennt jemand eine Lösung für folgendes Problem:
Ich habe ein Makro mit einer Schleife geschrieben und möchte, dass 
während der Schleife eine Bildschirmmeldung erscheint. Mit "print" oder 
"msgbox" ist dies IMHO nicht realisierbar, da beide Funktion immer auf 
eine Eingabe warten und diese Eingabe nicht durch das Makro selbst 
gesteuert werden kann.
Die "kontinuierliche Anzeige" kann ja mit einem kleinen Trick gelöst 
werden. Aber das Problem der Bildschirmmeldung kann ich nicht lösen.

Die Syntax lautet:
sub Bildschirmmeldung
dim document   as object
dim dispatcher as object
Dim i As Integer
Dim TimeS as double
Dim TimeWait as double
TimeWait=0.1
For i = 0 To 5
TimeS=Timer
Do
'msgBox ("Timer läuft", 0, "Hinweis")
print "Timer läuft"
Loop Until Timer>=TimeS+TimeWait
Next i
end sub

Gruß

Jochen

LO: LibreOffice 3.4.4 OOO340m1 (Build:402)
OS: Windows 7 Prof 64 Bit

--
Informationen zum Abmelden: E-Mail an users+help@de.libreoffice.org
Probleme? http://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/
Tipps zu Listenmails: http://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: http://listarchives.libreoffice.org/de/users/
Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert