Registriert seit: 08.07.2016
Version(en): 2016
09.11.2017, 17:41
(Dieser Beitrag wurde zuletzt bearbeitet: 09.11.2017, 17:41 von 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 :)
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
12.11.2017, 10:55
(Dieser Beitrag wurde zuletzt bearbeitet: 12.11.2017, 10:55 von 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=lastpostist allerdings immer mit dem Mediaplayer.
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Folgende(r) 1 Nutzer sagt Danke an schauan für diesen Beitrag:1 Nutzer sagt Danke an schauan für diesen Beitrag 28
• merkurus
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
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 JeanieWer sich traut:
Mediaplayer_Kuwer.xlsm (Größe: 20,09 KB / Downloads: 25)
Gruß Uwe
Registriert seit: 08.07.2016
Version(en): 2016
13.11.2017, 04:36
(Dieser Beitrag wurde zuletzt bearbeitet: 13.11.2017, 04:36 von 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.
Registriert seit: 08.07.2016
Version(en): 2016
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?
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
Hallo Julia,
(07.12.2017, 12:30)o0Julia0o schrieb: ... "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
Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:1 Nutzer sagt Danke an Kuwer für diesen Beitrag 28
• o0Julia0o