Code anpassen
31.08.2016 16:47:48
Fritz
mit dem nachfolgenden Code starte ich eine wav-Datei aus dem Ordner C:\sounds.
Mit dem nächsten Start des Makros wird das Abspielen vorzeitig beendet.
Ich würde nun gerne das Ganze so verändern, dass die betrreffende Datei (im Beispiel Sound1.wav)sich nicht im Ordner C:\sounds befindet, sondern immer im Unterordner "Sounds" des Ordners, in dem sich die Excel-Arbeitsmappe befindet, aus der das Makro aufgerufen wird (alternativ auch aus dem gleichen Ordner).
Für Eure Unterstützung im Voraus besten Dank.
Mfg
Fritz
Hier der Code:
Public Sub Play_Sound()
Static blnPlay As Boolean
If Not blnPlay Then
sndPlaySound "C:\Sounds\Sound_1.wav", SND_ASYNC Or SND_NODEFAULT
Else
sndPlaySound "NULL", SND_ASYNC
End If
blnPlay = Not blnPlay
End Sub
Anzeige