BEEP音を再生したい

質問

下のドレミを再生したいのですが具体的にどのようにどこへ記載すれば再生できますか？
Private　Sub？
Declare Function Beep Lib "kernel32" ( _
　　　　　　　　　　ByVal dwFreq As Long, _
　　　　　　　　　　ByVal dwDuration As Long _
　　　　　　　　　　) As Long
上記のコードをSUB　に記載するとエラーになります。
これがないとCALL Beepもエラーになります。
'===============================
Sub Test()
　Call Beep(262, 500)
　Call Beep(294, 500)
　Call Beep(330, 500)
　Call Beep(349, 500)
　Call Beep(392, 500)
　Call Beep(440, 500)
　Call Beep(494, 500)
　Call Beep(523, 500)
End Sub
VBA初心者です分かりやすくお願いします。

回答No.1

MRT1452 · ベストアンサー

文法的にAPI宣言は、Subの中には書けませんよ。
includeやimportに相当する物なので。

つまり
-------------
API宣言

sub test()
　[プログラム]
end sub
-------------
となります。

指定している物で言えば、
「kernel32.dllの中にあるBeepという関数をこのアプリケーションで呼び出して使いますよ。」
という宣言なので。

この記述がなければ、当然Beepという関数を見つけられないのでエラーとなります。

お礼

なるようになりましたありがとうございました。
API宣言が初めてわかりました。