Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Excel-Fenster blinken lassen

Gruppe

Anwendung

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