Beep音を鳴らしたい

質問

ExcelVBA初心者です。
Beep音を鳴らしたいのですが、Beepステートメントを使用しても鳴らないのです。Windowsの設定に問題があるのでしょうか。
よろしくお願いします。

回答No.5

Wendy02 · ベストアンサー

BLUEPIXYさんの回答へのレスではっきりしましたが、

＞プログラムイベントの中に「一般の警告音」がありません。

が原因のようですね。何か入れたソフトで書き換えられたのでしょうね。

[特定のサウンドが鳴らなくなりました]
http://homepage2.nifty.com/winfaq/c/trouble.html#643

参考URL：

http://homepage2.nifty.com/winfaq/c/trouble.html#643

お礼

ご回答いただいたサイトで解決いたしました！
ありがとうございました。

回答No.6

BLUEPIXY

>Declare～　は
>使い方がわかりませぬ(;_;)
VBA（VBE)での先頭部分に
コピペすることで
MessageBeep という関数が元からあるようにVBAで使えます

回答No.4

m-toshi

最初の回答で言っておけばよかったのですが、
ヘッドホンで音を確認するのも1つの方法かと
思います。

回答No.3

m-toshi

BLUEPIXYさんの回答でも、ダメだったのですね。
単純にスピーカーが付いていないとかでは
ないですか ?

補足

スピーカーは付いておりまする(;_;)
あきらめるしかないですかね？

回答No.2

BLUEPIXY

>プログラムイベントの中に「一般の警告音」がありません。
変ですね～。
メッセージ（警告）
とかはありますか？

ちなみに
Declare Function MessageBeep Lib "user32" (ByVal uType As Long) As Long
してやれば
' &h30:警告、&h10:システムエラー、0:一般の警告音,beep
MessageBeep(&H30)
で「警告」を鳴らすことができます。

昔、プログラムイベントの追加の方法を知っていたのですが、忘れてしまいました。（普通使うモンじゃないしね）

補足

メッセージ（警告）はありまして、
音も鳴っております。

せっかく書いてくださったのですが、
Declare～　は
使い方がわかりませぬ(;_;)

回答No.1

BLUEPIXY

コントロールパネル～サウンドとオーディオデバイスから
サウンドの中で
プログラムイベント
一般の警告音
が鳴らせるかどうか確認して下さい。
Beepステートメントで鳴るのはこの音なので。

お礼

早速のご回答ありがとうございます。
残念ながら、プログラムイベントの中に「一般の警告音」がありません。
試しに、全てのイベントに音を設定してみて、Beepを試したのですが、やはり鳴りません。
いろんな操作で音がなるようには、なってしまったんですけどね。
何か別の設定をしないと、「一般の警告音」は出てこないのでしょうかね？