Beim Öffnen einer Arbeitsmappe soll eine UserForm als Startbild angezeigt werden und sich nach einer vorgegebenen Zeit selbst schließen.
Aufruf beim Öffnen der Arbeitsmappe
Prozedur: Workbook_Open
Art: Ereignis
Modul: Klassenmodul der Arbeitsmappe
Zweck: UserForm zeigen
Ablaufbeschreibung:
UserForm aufrufen
Code:
Private Sub Workbook_Open()
frmPicture.Show
End Sub
UserForm anzeigen, warten und schließen
Prozedur: UserForm_Activate
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Anzeigen, warten und schließen
Ablaufbeschreibung:
UserForm neu zeichnen
2.000 Millisekunden warten
UserForm schließen
Code:
Private Sub UserForm_Activate()
Me.Repaint
Sleep 2000
Unload Me
End Sub
API-Deklaration zum Warten
Prozedur: API-Deklaration
Art: Deklaration
Modul: Standardmodul
Zweck: Warten
Ohne Ablaufbeschreibung
Code:
Declare Sub Sleep Lib "kernel32" _
(ByVal dwMilliseconds As Long)
Bitte beachten: Ein Hintergrundbild fügen Sie in eine UserForm ein, indem Sie entweder den Pfad zur Bilddatei
eingeben oder im Eigenschaftenfenster in der Zeile Picture die Grafik über die Zwischenablage einfügen.