mp4 Datei im Hintergrund abspielen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: mp4 Datei im Hintergrund abspielen
von: Hansi
Geschrieben am: 01.12.2015 09:51:11

Hallo Zusammen,
ich würde gerne per vba eine mp4 Datei im Hintergrund abspielen lassen (Excel Oberfläche soll im Vordergrund stehen). Die mp4 Datei liegt bei mir auf dem Desktop.
Hat jemand eine Idee?
Vielen Dank!
Gruß

Bild

Betrifft: AW: mp4 Datei im Hintergrund abspielen
von: Hansi
Geschrieben am: 01.12.2015 15:32:51
Kann mir keiner von Euch helfen? :(

Bild

Betrifft: AW: mp4 Datei im Hintergrund abspielen
von: selli
Geschrieben am: 01.12.2015 15:44:25
hallo hansi,
Shell Environ$("COMSPEC") & " /c Start dateiname_inklusive_pfad"
gruß
selli

Bild

Betrifft: AW: mp4 Datei im Hintergrund abspielen
von: selli
Geschrieben am: 01.12.2015 15:52:45
hallo hansi,
um excel wieder in den vordergrund zu bekommen, habe ich das in der recherche gefunden (die recherche kann übrigens von allen genutzt werden).
Option Explicit
Public Declare


Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long

Sub test()
SetForegroundWindow (Application.hwnd)
Application.WindowState = xlMaximized
End Sub
gruß
selli

Bild

Betrifft: unglücklich gesplittet
von: selli
Geschrieben am: 01.12.2015 15:58:42
hallo hansi,
Public Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
die zeile wurde im letzten beitrag unglücklich auseinandergerissen und sollte so wie hier eingefügt werden.
gruß
selli

Bild

Betrifft: AW: mp4 Datei im Hintergrund abspielen
von: Hansi
Geschrieben am: 01.12.2015 21:40:30
Hallo Selli,
super, dass sieht schon richtig gut aus.
Ich habe nur noch ein kleines Problem:
Beim erstmaligen öffnen (media Player) steht Excel weiterhin im Vordergrund, soweit prima! Allerdings beim zweiten Sound steht der media Player im Vorderung, es sei denn man schließt den media Player vorher. Wie kann ich das in meinen Code berücksichtigen?

Public Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Sub Intro()
   Dim basepath As String
   Dim audiofile As String
   Dim full_filename As String
   
   basepath = "c:\users\Desktop"
   audiofile = "test.mp3"
   full_filename = basepath & "\test.mp3"
   
   Debug.Print full_filename
   
   Application.ScreenUpdating = False
   On Error Resume Next
   ActiveSheet.OLEObjects.Add(Filename:=full_filename, Link:=True).Select
   If Err.Number <> 0 Then
     MsgBox "Could not play " & ActiveCell.Text
     Exit Sub
   End If
   Selection.Verb
   Selection.Delete
SetForegroundWindow (Application.hwnd)
Application.WindowState = xlMaximized
Application.ScreenUpdating = True


Bild

Betrifft: AW: mp4 Datei im Hintergrund abspielen
von: selli
Geschrieben am: 02.12.2015 09:39:29
hallo hansi,
weiß ich nicht.
gruß
selli

Bild

Betrifft: AW: mp4 Datei im Hintergrund abspielen
von: Hansi
Geschrieben am: 02.12.2015 12:03:24
Schade. Trotzdem vielen Dank, Selli!
Kann mir jemand anderes weiterhelfen?

Bild

Betrifft: AW: mp4 Datei im Hintergrund abspielen
von: Anton
Geschrieben am: 02.12.2015 15:52:21
Hallo Hansi,
so?:

Sub mp3_abspielen()
  Dim WMP As Object, datei As String
  Set WMP = GetObject("new:{6BF52A52-394A-11d3-B153-00C04F79FAA6}")
  datei = "C:\Users\Public\Music\Sample Music\Kalimba.mp3" 'anpassen
  WMP.URL = datei
  Do
    DoEvents
  Loop Until WMP.playState = 1
  WMP.Close
  Set WMP = Nothing
End Sub

mfg Anton

 Bild

Beiträge aus den Excel-Beispielen zum Thema "mp4 Datei im Hintergrund abspielen"