Mediaplayer in Userform
21.05.2008 00:04:04
Jürgen
Habe ein Video eingebettet das über eine Userform über folgenden Code beim starten abgespielt werden soll.
Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long)
ActiveSheet.Shapes("Object 9").Select
Selection.Verb Verb:=xlPrimary
End Sub
Private Sub MediaPlayer1_EndOfStream(ByVal Result As Long)
Unload Me
End Sub
Einziges Problen ist das ein neuer Player geöffnet wird der das Video auf ganzen Bildschirm abspielt.
Ich möchte es aber nur in der geöffneten Ueserform abgespielt haben. Mediaplayer wird auch in der Userform angezeigt.
Was muss noch am Code gebastelt werden.
Danke
Jürgen
Anzeige