Gruppe
API
Bereich
Anwendung
Thema
Excel-Fenster blinken lassen
Problem
Das Excel-Fenster blinkt kurz auf.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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