Det är lätt att spela upp ljudfiler i WAV-format. Du behöver bara veta filnamnet på det ljud du vill spela,
och bestäm om du vill att makrot ska vänta medan ljudet spelas eller inte. Här är ett exempel:
Public Declare Function 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 'no file to play If Wait Then' spela upp ljud innan du kör mer kod sndPlaySound WavFileName, 0 Else 'play sound medan koden körs sndPlaySound WavFileName, 1 End If End Sub Sub TestPlayWavFile () PlayWavFile "c: \ foldername \ soundfilename. wav ", False MsgBox" Detta är synligt medan ljudet spelas … "PlayWavFile" c: \ foldername \ soundfilename.wav ", True MsgBox" Detta är synligt när ljudet är klart … "Avsluta sub