Office: Command Button / Media player

Hallo Forum,

ich habe über einen Command Button den Media player aufgerufen.
Dieser spielt automatisch ein Video ab, bleibt danach aber geöffnet.
Wie lautet das VBA-Kommando zum schließen des MP?
Mein Code:

Private Sub CommandButton1_Click()
Dim stAppName As String
Dim pfad As String
pfad = "C:\Videos"
stAppName = "C:\Programme\Windows Media Player\mplayer2.exe " & pfad & "\Video1.avi"
Call Shell(stAppName, 1)
End Sub


Gruß Ralf

:)

 

Hallo Ralf,
nicht ganz sauber, aber funktioniert, den Endwert von I musst Du an die Dauer Deines Videos anpassen, eventuell noch eine innere Schleife einbauen.
Code:

Eine "saubere", aber kompliziertere Lösung auf das Ende des Videos zu warten, gibts hier .



MfG Jörg

 

Danke!