VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

AVI-Datei in UserForm abspielen

Gruppe

Dialog

Bereich

Extern

Thema

AVI-Datei in UserForm abspielen

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

    


Beiträge aus dem Excel-Forum zu den Themen Dialog und Extern