Eingebettete *.wav-Musikdatei abgespiel

Hallo Leute,
https:\/\/www.herber.de/bbs/user/137471.xlsm
in der Beispieldatei soll bei Druck auf Schaltfläche 2 ein kurzes Musikstück "Happy Birthday to you" abgespielt werden.
Wenn die Musikdatei in einem separaten Verzeichnis gespeichert ist, dann funktioniert das auch, siehe auskommentierte Zeile.
Die Musikdatei soll nun aus der Exceldatei heraus abgespielt werden (ohne externe Datei), aber da hakt es noch. Hat jemand einen Tipp wie der Programmcode dafür abgeändert werden muss, falls überhaupt möglich?
Bei rechtem Mausklick auf das Dateisymbol in Tabelle 1 erscheint:
Objekt-Manager-Shellobject-Object -- Inhalt aktivieren -- Paketinhalt öffnen -- Öffnen -- Groove-Musik öffnet und spielt das Lied ab.
Allerdings bleibt "Groove-Musik" auch nach Abspielen sichtbar; es sollte aber selbsttätig schließen
mfg
reiner

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Reiner,
ich bin mir sicher, dass ich beim Spiele programmieren in den späten 2000er Jahren eingebettete WAV-Dateien völlig unsichtbar und problemlos mit der u.a. .Verb-Funktionalität abgespielt hatte.
Später hatte ich mich geärgert, dass das jetzt nur noch mit einer lästigen Mitsicht des Abspielmediums passiert.
Folgendes Makro spielt eine eingebettete WAV-Datei per Buttonclick, auch auf einem anderen Blatt ab. Leider geht dabei wie gesagt der Player auf.
Schaltet man ihn in den Minimized-Modus, klappt's mit dem Abspielen micht immer. Für das Schließen muss ich auch eine Zeit vorgeben, da ich das Ende der Musik nicht ermitteln kann.
Aber vieiileicht bringt Dich diese Anregung ja irgendwie weiter....
PS: Ich musste es auf 64Bit testen. Hoffe dass dieUmsetzung auf 32Bit geklappt hat.

Option Explicit

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _

        ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function ShowWindow Lib "user32" ( _

        ByVal hWnd As Long, ByVal nCmdShow As Long) As Long

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" ( _

        ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Const WM_CLOSE = &H10

Sub WavDateiAbspielen()

 Dim oRette As Worksheet

 Dim i As Integer, hWnd As Long

 Application.ScreenUpdating = False

 Application.EnableEvents = False

 Set oRette = ActiveSheet

 Sheets("Tabelle1").OLEObjects("Objekt 1").Verb Verb:=xlPrimary

 Do

  Sleep 10: DoEvents

  hWnd = FindWindow(vbNullString, "Groove-Musik")

  If hWnd &LT;&GT; 0 Then ShowWindow hWnd, 1

  i = i + 1: If i &GT; 300 Then Exit Do        '3 Sekunden warten

 Loop

 PostMessage hWnd, WM_CLOSE, 0&, 0&

 oRette.Select

 Application.EnableEvents = True

 Application.ScreenUpdating = True

End Sub

viele Grüße
Karl-Heinz

Beliebteste Forumthreads (12 Monate)

Eingebettete *.wav-Musikdatei abgespiel

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread