Popup-Window in den Vordergrund bringen
28.01.2005 15:40:04
Michael
ich möchte eine MsgBox von Excel so ausgeben lassen, dass sie auch dann im Vordergrund erscheint, wenn ich gerade in einer anderen Anwendung aktiv bin. Geht das?
Bisher habe ich folgenden Code:
Sub Aufruf()
Application.OnTime Now + TimeSerial(0, 0, 5), "countdown"
End Sub
Sub countdown()
Set WsShell = CreateObject("WScript.Shell")
For c = 10 To 1 Step -1
a = WsShell.Popup(Str(c), 1, "Countdown")
Next c
End Sub
Mit diesem Code wird zwar eine MsgBox erzeugt und in der Taskleiste angezeigt. Sie kommt aber nicht in den Vordergrund.
Danke & Ciao,
Michael G.