É fácil reproduzir arquivos de som no formato WAV. Você só precisa saber o nome do arquivo do som que deseja reproduzir,
e decida se deseja que a macro espere enquanto o som é reproduzido ou não. Aqui está um exemplo:
Função de declaração pública 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) = "" Então saia Sub 'nenhum arquivo para reproduzir If Wait Then' reproduz som antes de executar qualquer outro código sndPlaySound WavFileName, 0 Else 'reproduz som enquanto o código está executando sndPlaySound WavFileName, 1 End If End Sub Sub TestPlayWavFile () PlayWavFile "c: \ foldername \ soundfilename. wav ", False MsgBox" Isso fica visível enquanto o som está tocando… "PlayWavFile" c: \ foldername \ soundfilename.wav ", True MsgBox" Isso fica visível depois que o som termina de tocar … "End Sub