Label blinken lassn ,Bitte helfen Sie mir!!
27.08.2007 20:50:00
minoucha
Wie kann ich ein Label Blinken lassen?
Habe diese makro gefunden aber leider muss ich jedes mal auf EXtra->Makro->und dann zugehörige Makroname auswählen und dann ausführen ,wie kann man das automatisch machen lassen ohne diese aufwand?
und hier ist mein makro im Userform:
Code:
Public Sub Blinken()
Static H00C0FFFF As Boolean
Zeit = Now + TimeValue("00:00:01")
Application.OnTime Zeit, "Blinken2"
If H00C0FFFF = True Then
H00C0FFFF = False
Label1.BackColor = &HC0FFFF
Else
H00C0FFFF = True
Label1.BackColor = &H80C0FF
End If
End Sub
und die hier im Modul
Code:
Code:
Option Explicit
Public Sub Blinken2()
Software.Blinken
End Sub
Danke