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: 25)

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