Възпроизвеждането на звукови файлове във WAV формат е лесно. Трябва само да знаете името на файла на звука, който искате да възпроизведете,
и решете дали искате макросът да изчака, докато звукът се възпроизведе или не. Ето един пример:
Публично обявяване на функция 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 (WavFileNa then Ex) Под „няма файл за възпроизвеждане, ако изчакате след това“ възпроизведете звука, преди да стартирате още кода sndPlaySound WavFileName, 0 Иначе „пуснете звук, докато кодът работи sndPlaySound WavFileName, 1 End If End Sub Sub TestPlayWavFile () PlayWavFile" c: \ foldername \ soundfilename. wav ", False MsgBox" Това се вижда, докато звукът се възпроизвежда … "PlayWavFile" c: \ foldername \ soundfilename.wav ", True MsgBox" Това се вижда, след като звукът приключи … "End Sub