Hallo Excelperten,
ich möchte einen CommandButton oder dessen Schrift auf einer Userform blinken lassen. Gibt es da eine möglichst einfache Möglichkeit? Bin für jeden Tipp dankbar.
G JG
AW: Commandbutton oder dessen Schrift blinken lassen?
19.12.2004 14:45:30
H.W
Hallo
aus meinem Archiv, also nicht von mir
Im folgendes Beispiel fängt die Schaltfläche im sekundentakt an zu blinken wenn man auf sie klickt und hört auch auf wenn man wieder draufklickt.
Nimm eine Schaltfläche aus dem Steuerelement-Toolbox (nicht aus Formular)
und nenne dieses cb. In einem Modul habe ich:
Sub startBlink()
mbblink = Not mbblink
Call blink1
End Sub
Sub blink1()
If mbblink Then
Sheets("10").cb.BackColor = RGB(255, 0, 0)
Sheets("10").cb.ForeColor = RGB(255, 255, 0)
Application.OnTime Now + TimeValue("00:00:01"), "blink2"
End If
End Sub
Sub blink2()
If mbblink Then
Sheets("10").cb.BackColor = RGB(255, 255, 0)
Sheets("10").cb.ForeColor = RGB(255, 0, 0)
Application.OnTime Now + TimeValue("00:00:01"), "blink1"
End If
End Sub
Im Code für die Schaltfläche habe ich