エクセル２０１０ ＶＢＡのサウンドの宣言

エクセル２００７でＶＢＡをプログラミングして使っています。
２０１０で同じＶＢＡを走らすと
Public Declare Function apisndPlaySound Lib "WINMM" Alias "sndPlaySoundA" _
(ByVal FileName As String, ByVal SND_ASYNC As Long) As Long
とＳＯＵＮＤの記述の宣言の　Function　のところで強調表示が出てエラーになります。
２００７、２００３等ではエラーは出ず使えたのですが、書き換える必要があるようです。
前に進めず困っています。どなたかご教授をよろしくお願いします。

No.1 回答者： DreamyCat 回答日時： 2013/02/14 09:17

ずっと昔からのものをオリジナルのままで使ってみたらどうでしょう。

３２ビットOSなら問題なく動作します。６４ビットOSだとたぶんだめです。
Windows８（３２ビット）、Excel２０１３でも動作します。
ただし、これらはWAVファイルしか再生できなかったはずです。

Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
(lpszSoundName As Any, ByVal uFlags As Long)As Long

３２ビット用にはこちらが推奨されています。６４ビットOSだとどうか？
Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" _
(ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

再生するファイルの種類を増やしたいなら、mcisendstringとかmediaolayerコントリールを使うといいです。

この回答へのお礼

ご回答いただき有難うございます。ご返事が遅れお詫びします。
その後他のＰＣ数台の６４ビット版で試したところエラーにならず動くものですから、問題のＰＣだけの問題だったかなと思い放置していました。この事例の場合、データをＧｏｏgle　Ｄｒｉｖｅ　で転送したのでデータがくずれた可能性も考えられ調査中です。ご丁寧なアドバイス有難うございました。

お礼日時：2013/02/28 09:55