eine DiaShow ablaufen lassen funktioniert das?
Ich habe 3 *.jpg Datein für rot, gelb und grün.
sollte so sein:
Rot
ca. 5Sek. Pause
Gelb
ca. 5Sek. Pause
Grün
ca. 5Sek. Pause
ausblenden
Geht sowas in Excel VBA? Brauch dringend Hilfe
Gruß
Willie
Geht sowas in Excel VBA? Brauch dringend Hilfe
Gruß
Willie
Sub Starten()
Load UserForm1
UserForm1.Show
End Sub
Private Sub UserForm_Activate()
T1 = Timer + 5
UserForm1.Image1.Picture = "c:\rot.jpg"
Do While Timer > T1: Loop
T1 = Timer + 5
UserForm1.Image1.Picture = "c:\gelb.jpg"
Do While Timer > T1: Loop
T1 = Timer + 5
UserForm1.Image1.Picture = "c:\grün.jpg"
Do While Timer > T1: Loop
Unload Me
End Sub
Das sollte klappen (ungetestet).
Ich persönlich würde allerdings ein Label einbauen und die Hintergrundfarbe ändern, dann brauchst du keine Bilder zu laden. Oder 3 Label mit den Hintergrundfarben übereinander legen und nur das gewünschte einblenden.
Udo
Sub Starten()
Load UserForm1
UserForm1.Show
End Sub
Private Sub UserForm_Activate()
Image1.BackColor = RGB(255, 0, 0)
Application.Wait (Now + TimeValue("0:00:5"))
Image1.BackColor = RGB(255, 255, 0)
Application.Wait (Now + TimeValue("0:00:5"))
Image1.BackColor = RGB(0, 255, 0)
Application.Wait (Now + TimeValue("0:00:5"))
End Sub
Gruß
Willie