Windows Mediaplayer in Userform
17.07.2019 12:00:18
Fettertiger
ich wurde gebeten eines meiner alten Tools zu reaktivieren. Das Tool hatte seinerzeit ganz wunderbar funktioniert, macht aber jezt unter Office 365 auf Windows 10 64bit ein paar Probleme. Eingrenzen konnte ich es auf den WindowsMediaplayer der auf einer Userform ein video abspielt.
Erster Fehler: Beim Öffnen der Datei kommt eine Warnung: "This application is about to initialize ActiveX controls that might be unsafe...."
2. Fehler: Nach dem Abspielen des Videos soll die Userform automatisch schliessen:
Dies wurde bisher durch überwachung des Status des Mediaplayers realisiert:
Private Sub WindowsMediaPlayer1_StatusChange()
If WindowsMediaPlayer1.Status = "Stopped" Then
Unload Me
Application.Wait (Now + TimeValue("00:00:01"))
Application.CommandBars("Worksheet Menu Bar").Enabled = True
Application.CommandBars("Formatting").Visible = True
Application.CommandBars("Standard").Visible = True
Tbl_Start.Activate
Application.WindowState = xlMaximized
End If
End Sub
Warum auch immer, aber sobald die If Schleife erfolgreich durchlaufen wurde und das Sub beendet ist, schliesst sich die Excel Datei selbständig ohne weitere Warnung.
Hat irgendjemand eine Idee woran das liegen könnte?
Alternative könnte ich die ganze Userform entfernen und einfach über shell den Mediaplayer extern aufrufen, hätte aber dabei die folgenden Probleme:
a) Mediaplayer sollte ohne Bedienelemente angezeigt werden - wenn möglich auch ohne Menü
b) Mediaplayer soll mittig auf Bildschirm in bestimmter Größe angezeigt werden
c) Mediaplayer soll sich nach abspielen des Videos selbstständig schliessen.
Ich bin mir nicht sicher ob die Option mit oder ohne Userform einfacher wäre. Für Ideen bin ich Dankbar!
Theo