エクセル ボタンクリックでmp3ファイルを再生

こんにちは、表題通り、ボタンをクリックしたら音源を再生するマクロを教えて頂けませんか？

最短で再生できる方法が理想です

質問者からの補足コメント

• なんででしょｗ

  
  No.1の回答に寄せられた補足コメントです。 補足日時：2023/04/18 22:23

No.1 ベストアンサー 回答者： くんこば 回答日時： 2023/04/18 21:43

Sub PlaySound()

'サウンドファイルのパスを指定
Dim SoundPath As String
SoundPath = "C:\Windows\Media\chimes.wav"

'サウンドの再生
Call Shell("powershell.exe -c (New-Object Media.SoundPlayer """ & SoundPath & """).PlaySync();")
End Sub

この回答へのお礼

こんばんわ　回答ありがとうございます。

"C:\Windows\Media\chimes.wav"の部分にファイルのフルパスを記述して実行してみたのですが、再生されない上に、ウインドウズから怒られました　笑

補足に画像あげてますｗ

なんででしょうか？

お礼日時：2023/04/18 22:21