Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
984to988
984to988
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

*.Wav starten

Forumthread: *.Wav starten

*.Wav starten
14.06.2008 15:44:45
Karsten
Hallo,
ich möchte von Excel heraus eine Musikdatei starten (*.wav). Kann mir jemand einen Makrobefehl schreiben?
Vielen Dank
Karsten

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: *.Wav starten
14.06.2008 15:50:00
Josef
Hallo Karsten,
das geht so.
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Declare Function waveOutGetNumDevs Lib "WINMM" () As Integer
Declare Function sndPlaySound Lib "WINMM" Alias "sndPlaySoundA" _
    (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long


Sub playWAV()
Dim result As Long, strWAVFile As String
If waveOutGetNumDevs() <> 0 Then
    strWAVFile = "C:\WINDOWS\MEDIA\Ding.wav"
    result = sndPlaySound(strWAVFile, 0)
End If
End Sub


Gruß Sepp



Anzeige
AW: *.Wav starten
14.06.2008 16:09:23
Karsten
Hallo Sepp,
besten Dank!
Gruß
Karsten
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige