Microsoft ExcelでVBAを使用してWAV-ファイルを再生
WAV形式のサウンドファイルを再生するのは簡単です。再生するサウンドのファイル名を知っているだけで、サウンドの再生中にマクロを待機するかどうかを決定できます。
次に例を示します:
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 ' play sound before running any more code sndPlaySound WavFileName, 0 Else ' play sound while code is running sndPlaySound WavFileName, 1 End If End Sub Sub TestPlayWavFile() PlayWavFile "c:\foldername\soundfilename.wav", False MsgBox "This is visible while the sound is playing..." PlayWavFile "c:\foldername\soundfilename.wav", True MsgBox "This is visible after the sound is finished playing..." End Sub