Thema: UserForm als Startbild

Home

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.