Het is gemakkelijk om geluidsbestanden in WAV-formaat af te spelen. U hoeft alleen de bestandsnaam te weten van het geluid dat u wilt afspelen,
en beslis of u wilt dat de macro wacht terwijl het geluid wordt afgespeeld of niet. Hier is een voorbeeld:
Public Declare-functie 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) = "" Dan afsluiten Sub ' geen bestand om af te spelen If Wait Then ' speel geluid af voordat u meer code uitvoert sndPlaySound WavFileName, 0 Else ' speel geluid af terwijl code wordt uitgevoerd sndPlaySound WavFileName, 1 End If End Sub Sub TestPlayWavFile() PlayWavFile "c:\mapnaam\geluidsbestandsnaam. wav", False MsgBox "Dit is zichtbaar terwijl het geluid wordt afgespeeld… " PlayWavFile "c:\foldername\soundfilename.wav", True MsgBox "Dit is zichtbaar nadat het geluid is afgespeeld… " End Sub