質問: 【至急】 ExcelVBAで音楽ファイルを再生するコードを作りました。 ですが、流れる音楽が物凄く音質が悪いです。改善する方法はありますか?
回答: とりあえず、↓のようなコードで普通に音は鳴りましたけど・・・ Option Explicit ' 'API:同期/非同期の音鳴らしの簡単なほう、および、音量出力 ’64bitのExcel用↓ Declare PtrSafe Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long ’32bitのExcel用↓ 'Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long '音鳴らし実行 Sub DoukiBaaanPlay2() sndPlaySound ThisWorkbook.Path & "\久保田利伸_初BlueNoteTokyo_2020_11_28.wav", 1 End Sub 一応、普通の音質で鳴ってました。 (mp3をWAVに変換したのでもともと音質良くないですが、でもガタガタで死にそうなくらいの音質ではありませんでした) 中断がわからなかったので、 タスクマネージャで 「Windowsオーディオデバイスグラフアイソレーション」 というタスクを終了したら切れました。 mciSendStringのAPIのほうだと、プログラムで停止できるかもです。