VBAで音を鳴らす記述

質問

PowerPointでコマンドボタンを押すと音を鳴らす記述をしたいのですが分りません。

下記の記述はPowerPointのボタンの記述です。
XVL3Player1と言うソフト使ってアニメを開始するものです。それと同時にWAVファイルを再生したいのですが
方法がわかりません。

Private Sub CommandButton4_Click()
XVL3Player1.animStart ("開始")
End Sub

解説本にはShellを使えば再生できると書いてありました。
Shell ("C:\WINDOWS\SYSTEM32\sndrec32.exe C:\62.wav")
上記の記述がサンプルとして書かれていました。
これらを組み合わせてアニメとWAVを同時に再生させることは可能でしょうか。

なお、プログラムは私の作ったものではないのでまったくVBAのことが分りません。具体例で教えていただけるとありが対たいのですが。

回答No.2

hofuhofu · ベストアンサー

C:\WINDOWSの代わりに%windir%(Windowsをインストールしたフォルダのパスが入っている)を使えば、ある程度フォルダ構造の違いは吸収できますが、サウンドレコーダー(sndrec32.exe)で再生というのも、何か珍妙なプログラムですね。
Shellを使って外部プログラムで再生させるのもあまりスマートな方法とは言えないですし。

VBAは触ったことがないですが、PlaySountを使って再生させられないですか？
第3引数にSND_ASYNCを入れておけば、アニメと同時に再生(「同期」させるのは難しいかもしれませんが)させることもできると思います。
http://tllsp.web.infoseek.co.jp/contents/tips/tips_doswin.htm#001
http://homepage1.nifty.com/tsware/tips/tips_042.htm
http://homepage1.nifty.com/tsware/tips/tips_041.htm

参考URL：

http://www.atmarkit.co.jp/icd/root/56/9215056.html

お礼

ありがとうございます。
参考URLをじっくり読んでみます。

回答No.1

popesyu

Private Sub CommandButton4_Click()
XVL3Player1.animStart ("開始")
Shell ("C:\WINDOWS\SYSTEM32\sndrec32.exe C:\62.wav")
End Sub
これで音が鳴ったのか鳴らなかったのかどっちなんでしょう？

ちなみに「C:\62.wav」ここの部分は「C:\WINDOWS\Media」以下の適当なファイル、例えば
「C:\WINDOWS\Media\chimes.wav」とかにしておけば何か音がなるんじゃないかなと。

補足

ありがとうございました。
音は出ませんでした。
ただし、WINDOWSの部分をWINNTにしたら鳴りました。
95系NT系で共通のプレイヤーにすることはできないでしょうか。