Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

AVI-Datei in UserForm abspielen

Gruppe

Extern

Problem

In einer UserForm soll eine AVI-Datei abgespielt werden.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul der UserForm ein.


ClassModule: frmAVI

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub UserForm_Initialize()
   Dim sFile As String
   sFile = ThisWorkbook.Path & "\fishtank.avi"
   If Dir(sFile) = "" Then
      Beep
      MsgBox sFile & " wurde nicht gefunden!"
   Else
      MediaPlayer1.Filename = sFile
      MediaPlayer1.AutoStart = True
   End If
End Sub
StandardModule: Modul1

Sub CallForm()
   frmAVI.Show
End Sub