Je snadné přehrávat zvukové soubory ve formátu WAV. Stačí znát název souboru zvuku, který chcete přehrát,
a rozhodněte se, zda chcete, aby makro počkalo, až se zvuk přehraje, nebo ne. Zde je příklad:
Funkce Public Declare sndPlaySound Lib "winmm.dll" _ Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _ ByVal uFlags As Long) As Long Sub PlayWavFile (WavFileName As String, Wait As Boolean) If Dir (WavFileName) = "" Then Exit Sub 'žádný soubor k přehrání If Wait Then' přehraje zvuk před spuštěním dalšího kódu sndPlaySound WavFileName, 0 Jinak 'přehraje zvuk, když je spuštěn kód sndPlaySound WavFileName, 1 End If End Sub Sub TestPlayWavFile () PlayWavFile "c: \ název složky \ soundfilename. wav ", False MsgBox" Toto je viditelné při přehrávání zvuku … "PlayWavFile" c: \ název složky \ soundfilename.wav ", True MsgBox" Toto je viditelné po dokončení přehrávání zvuku … "End Sub