Odtwarzanie plików dźwiękowych w formacie WAV jest łatwe. Musisz tylko znać nazwę pliku dźwięku, który chcesz odtworzyć,
i zdecyduj, czy chcesz, aby makro poczekało na odtworzenie dźwięku, czy nie. Oto przykład:
Funkcja deklaracji publicznej sndPlaySound Lib "winmm.dll" _ Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _ ByVal uFlags As Long) As Long Sub PlayWavFile(WavFileName As String, Wait As Boolean) Jeżeli Dir(WavFileName) = "" Następnie zakończ Sub ' brak pliku do odtworzenia If Wait Then ' odtwarzaj dźwięk przed uruchomieniem jakiegokolwiek kodu sndPlaySound WavFileName, 0 Else ' odtwarzaj dźwięk podczas działania kodu sndPlaySound WavFileName, 1 End If End Sub TestPlayWavFile() PlayWavFile "c:\nazwafolderu\nazwapliku dźwiękowego. wav", False MsgBox "Widoczne podczas odtwarzania dźwięku…" PlayWavFile "c:\nazwafolderu\nazwaplikudźwiękowego.wav", True MsgBox "Widoczne po zakończeniu odtwarzania dźwięku…" End Sub