Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen API und Anwendung