Videodatei abspielen per VBA

[o0Julia0o]

hi, kann man per VBA eine Videodatei abspielen welche im gleichen Verzeichnis wie die Exceldatei liegt? Also "Wenn A1=1 dann Videodatei1 abspielen".

Das Video soll im Vollbildmodus wiedergegeben werden(wenn möglich sich danach wieder schließen).

lieben Dank

Julia :)

[schauan]

Hallo Julia,

das sollte eigentlich nach dem gleichen Prinzip funktionieren wie in Deiner Frage zu den Sounds. Dem Mediaplayer ist es ja fast egal, was da kommt - sofern es unterstützte Formate sind.

Eine Alternative wäre z.B. das, nur kommen da einige Meldungen
Sub test()
ThisWorkbook.FollowHyperlink Address:="G:\Music_T\Prüfen\irgendeintitel.mp3"
End Sub

Du kannst auch mal in diesen Beispielthread schauen, wie ich es mit den Sounds gelöst habe. In dem Fall allerdings mit Playlisten.
http://www.clever-excel-forum.de/Thread-...n=lastpost

ist allerdings immer mit dem Mediaplayer.

[Kuwer]

Hallo,

das Schwierigste ist das automatische Schließen.
Ich hatte mal was gebastelt mit dem Mediaplayer im UserForm.

Das wären die Codes dazu:

' **************************************************************

'  Modul:  UF_Play  Typ = Userform

' **************************************************************



Option Explicit



Private Sub UserForm_Activate()

 WindowsMediaPlayer1.URL = CStr(Worksheets("Tabelle1").Range("C2").Value)

 Beenden

End Sub



Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)

 If NewState = 3 Then

   WindowsMediaPlayer1.fullScreen = True

 End If

 If NewState = 1 Then Me.Tag = "Close"

End Sub



Private Sub Beenden()

 Do Until Me.Tag = "Close"

   Sleep 1000

   DoEvents

 Loop

 Unload Me

End Sub

' **************************************************************

'  Modul:  Modul1  Typ = Allgemeines Modul

' **************************************************************



Option Explicit



#If VBA7 And Win64 Then

   ' 64 bit Excel

    Public Declare PtrSafe Sub Sleep Lib "kernel32" ( _

       ByVal dwMilliseconds As LongLong)

#Else

   ' 32 bit Excel

    Public Declare Sub Sleep Lib "kernel32" ( _

       ByVal dwMilliseconds As Long)

#End If



Sub Schaltfläche1_Klicken()

 UF_Play.Show

End Sub

Code eingefügt mit: Excel Code Jeanie

Wer sich traut:
  Mediaplayer_Kuwer.xlsm (Größe: 20,09 KB / Downloads: 24)

Gruß Uwe

[o0Julia0o]

wow, das funktioniert super. Einziges Manko ist, dass unten im WindowsMediaPlayer die Play-Taste und der Laufzeitbalken etc. zu sehen sind. Erst nach ca. 48 Sekunden verrschwinden die. Ich habe einfach Sleep auf 0 gesetzt, dann verschwindet die ungewollte Anzeige nach 2 Sekunden.

[o0Julia0o]

Ich habe das jetzt mal versucht nachzubauen. Bei mir sagt der immer "Variable nicht definiert". Es wird mir aus der "Private Sub UserForm_Activate()" folgender Wert markiert: "WindowsMediaPlayer1"

Wie bekomme ich diesen denn in VBA?
   

Ich habe nur die UF_Play Userform hinein bekommen. Aber dieses Dropdown & entsprechend Windows>MediaPlayer1 bekomme ich nicht hin. Wie geht das?

[Kuwer]

Hallo Julia,

... "WindowsMediaPlayer1"

Wie bekomme ich diesen denn in VBA?

hier (D)ein Thema zur Auffrischung: http://www.clever-excel-forum.de/thread-...erelemente , nur dass Du jetzt nach 'Windows Media Player' suchen musst.  

Gruß Uwe