VBA で警告音

VBAで警告音を鳴らす際にBeepを使っています。
このたび、３種類の警告音が必要なったのですが、VBAのBEEPの場合
「一般の警告」がなるだけなので、数種類の警告音が出来ません。
何か良い方法はありませんか？

No.3 ベストアンサー 回答者： DexMachina 回答日時： 2008/05/27 22:39

警告音(「メッセージ (警告)」や「メッセージ (情報)」)を直接出すのでしたら、既出の質問で回答されて

いる、APIを使用します：
http://oshiete1.goo.ne.jp/qa747208.html


なお、APIに慣れていなくて敷居が高く感じられるようでしたら、SendKeys関数とMsgBoxで擬似的に
やってしまうというのもひとつの手だと思います。
試しに、現在の「Beep」の記述を、以下のコード(コメントを除けば実質2行)に置き換えてみて下さい：

　'「Enter」キーの信号(?)を送信します
　SendKeys "{Enter}", False
　'「システム エラー」の音を出します
　'(MsgBox自体は、上でのEnterで自動的に閉じられます：たまに残ることがありますが(汗))
　MsgBox "", vbCritical


・・・以上です。
なお、MsgBox関数の「vbCritical」を、「vbInformation」にすれば「メッセージ (情報)」の音に、
「vbExclamation」にすれば「メッセージ (警告)」の音に、それぞれ変えることができます。
(実際に鳴る音は、Windows側の設定に依存するので注意：
　コントロールパネルの「サウンドとオーディオデバイス」等で「システム エラー」時の音を変えると、
　Access側で鳴る音も変わります)

本来ならMsgBoxに表示するアイコンの切替用の引数ですし、SendKeysは時に予想外の
動作をすることがあるということで、あまりお勧めはできませんが、こんな方法もあるという
ことで、ご参考まで。

No.2 回答者： imogasi 回答日時： 2008/05/24 22:56

APIですが、

http://hpcgi1.nifty.com/kenzo30/b_cbbs/cbbs.cgi? …
にWAVファイルの演奏が載っています。
数種類の警告音をどう探すか、どう作るかの問題はありますが、何かWAVファイルでやってみては。過去にゲームからなどから入っているかもしれない。

No.1 回答者： akina_line 回答日時： 2008/05/23 12:21

こんにちは。

　下記サイトをご参照下さい。
　　http://exceler.blog68.fc2.com/blog-entry-20.html
　　API関数のBEEPを使うと音階が作れます。

では。