ExcelVBAでWindowsAPIを使い音声ファイルを再生する方法

API宣言

WindowsAPI（関数）を使うためには、事前に宣言が必要となります。

Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

解説

この宣言では、sndPlaySound関数（音声ファイルを再生）が使用できる様になります。

プログラミング例

具体的なプログラミング例を紹介します。

Sub 音を再生()
    Dim 音ファイル名 As String
    音ファイル名 = "C:\Windows\Media\chimes.wav" ' ここに再生したい音のファイル名を入れます
    Call sndPlaySound(音ファイル名, 0)
End Sub

上記のプログラムは、再生する音のファイル名を「音ファイル名」という変数に入れてから実行しています。

まとめ

WindowsAPI関数：sndPlaySoundを使用し、音声ファイルを再生する方法について紹介しました。