Video/ Animation auf Tabellenblatt abspielen

[o0Julia0o]

hi, kann ich eine Videodatei auf einem Tabellenblatt abspielen lassen, z.B ein Gif oder eine MP4? Bedienungselemtente die play-taste sollen nicht angezeigt werden.


Das funktioniert bei mir nicht: https://www.clever-excel-forum.de/Thread...t-anzeigen
Wenn ich in Excel 2019 Microsoft Webbrowser auswähle und in die Tabelle klicke, steht dort: Objekt kann nicht eingefügt werden.

[Oberschlumpf]

Hi Julia,

ich nutze die ältere MSO-Version 2016, und auch ich erhalte beim Versuch, WEB-Browser als Control einzufügen die gleiche Meldung "Geht nicht..." wie du.

Ich weiß den Grund nicht, vermute aber, dass der WEB-Browser als Control schon seit längerem nicht mehr in MSO unterstützt wird, weil ja auch der echte Browser "MS Internet Explorer" von MS nicht mehr im Einsatz ist.

Da es SO also nicht zu funktionieren scheint, starte deine MP4-Datei mit SHELL(...) doch im VLC-Player.
Anleitungen, wie du mit SHELL externe Programme starten kannst, findest du genügend bei Google.
Ja, ich weiß, Start/Stop/sonstige Button wirst du da wahrsch nicht ausblenden können, aber....gibt es eine andere Möglichkeit?

Ciao
Thorsten

[maninweb]

Hallo,

das dürfte wohl daran liegen, dass einige Steuerelemente aus Sicherheitsgründen von MS abgeschaltet wurden. Stichwort Kill-Bit.
Siehe auch hier https://learn.microsoft.com/de-de/micros...ex-control

Gruß

[o0Julia0o]

Ja, praktisch wäre halt, wenn in innterhalb einer Tabelle abspielen würde. Mit Shell klappt es allerdings auch nicht:

Public Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hWnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nshowcmd As Long) As Long

Sub beliebigeDateiÖffnen()
Dim strPfad As String
Const SW_NORMAL = 1
'Hier Dein Programm angeben
D:\VLC\VLCPortable.exe
strPfad = "D:\Testvid.mp4" 'Pfad zur Datei
Call ShellExecute(0, "open", strPfad, "", "", SW_NORMAL)
End Sub


Bis ByVal nshowcmd As Long) As Long  ist der Code rot dargestetllt in VBA. Also üngültig. Genauso wie: D:\VLC\VLCPortable.exe
   

[Oberschlumpf]

Sub beliebigeDateiÖffnen()
Dim strPfad As String, lstrApp As String
Const SW_NORMAL = 1
'Hier Dein Programm angeben
lstrApp = "D:\VLC\VLCPortable.exe" '<-- du musst den Pfad zum Programm auch genau so in "" angeben, wie den Pfad zur MP4-Datei !
strPfad = "D:\Testvid.mp4" 'Pfad zur Datei
Call ShellExecute(0, "open", lstrApp, strPfad, "", SW_NORMAL)
End Sub

---

der obere Teil mit ByVal nshowcmd wird bei mir korrekt dargestellt - ich hab deinen Code nur kopiert, nur den Teil mit lstrApp angepasst - gestartet - ok