【ｖｂａ】Beep音が鳴らない

Beep音を鳴らしたいのですが
Sub Macro()
Beep
End Sub
では鳴りません。

でもデバッグしても何も起こりません。
音楽は聴けるのでスピーカーは正常です。

何がいけないのでしょうか？
よろしくお願いします。

No.4 ベストアンサー 回答者： Wendy02 回答日時： 2009/04/17 21:54

>まず「音量」というのが探せませんでした　

Window のVersion は？
#1さんの手順は、どこまで行きましたか？

音楽を聴いたりした後に、ミュートをクリックしたままにすると、音がならないことがあります。

この回答へのお礼

と思ったら仰るとおりミュートになっていました。
お騒がせしました。
再度ありがとうございます。

お礼日時：2009/04/17 22:32

No.3 回答者： Wendy02 回答日時： 2009/04/17 17:52

こんばんは。

まだ、上手く行っていませんか？
#1さんのところで、「音量」のデバイス音量の詳細設定をクリックして、
ボリュームコントロールのところをみてください。

レバーのところをクリックすれば、音が出るはずです。
よく、そこが、最低音量にしていたりすることが多いです。

この回答へのお礼

まず「音量」というのが探せませんでした　汗
「サウンド」の中にあるのでしょうか？
ただ音楽などは大きな音で聞けるので原因は不明です。
ありがとうございます。

お礼日時：2009/04/17 19:40

No.2 回答者： imogasi 回答日時： 2009/04/17 15:16

#1のご回答がポイントと思いますが、

http://officetanaka.net/excel/vba/statement/Beep …
の「ビープ音の鳴る時間と周波数はコンピュータの機種によって異なります」を注目と載っているコード例を実行してみてください。
numを１でなく１０ぐらいにしてテストしてみては。

この回答へのお礼

教えて頂いた方法を試してみたのですが何も鳴らないので
パソコン自体に原因があるのかもしれません
ありがとうございます。

お礼日時：2009/04/17 17:12

No.1 回答者： kawais070 回答日時： 2009/04/17 14:40

WindowsXPの場合ですが、

コントロールパネル→サウンド、音声、およびオーディオデバイス
→サウンドとオーディオデバイス→サウンド

とクリックして、「プログラムイベント」の欄の「一般の警告音」
として登録されている音声が Beep ステートメントで鳴ると
思います。

もし、コントロールパネルの上記の設定が行われていないのなら、
設定してみてください。

この回答へのお礼

コントロールパネル確認してみます！ありがとうございます。

お礼日時：2009/04/17 15:45