Gruppe
API
Problem
Das Excel-Fenster blinkt kurz auf.
StandardModule: Modul1
Private Declare Function FlashWindow Lib "user32.dll" (ByVal hwnd As Long, _
bInvert As Long) As Long
Private Declare Function FindWindow _
Lib "user32" _
Alias "FindWindowA" _
( _
ByVal lpClassName As String, _
ByVal lpWindowName As String _
) _
As Long
Sub Timer1_Timer()
Static Retval As Long
Retval = FlashWindow(FindWindow("XLMAIN", Application.Caption), Not Retval)
End Sub