Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Abspielen einer AVI-Datei in einem UserForm-Steuerelement

Gruppe

Extern

Problem

In einem UserForm-Steuerelement soll eine AVI-Datei abgespielt werden.

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

ClassModule: frmHelmut

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub cmdOK_Click()
   cmdOK.Enabled = False
   Animation1.Open ThisWorkbook.Path & "\ykohl.avi"
End Sub

StandardModule: Modul1

Sub CallHelmut()
   Dim sFile As String
   sFile = ThisWorkbook.Path & "\ykohl.avi"
   If Dir(sFile) = "" Then
      Beep
      MsgBox "Die AVI-Datei fehlt:" & _
         vbNewLine & sFile
      Exit Sub
   End If
   frmHelmut.Show
End Sub