専用のAPIはないので、sndrec32で代替

 Sub Sound()
   strSoundFile = "C:\Windows\Media\tada.wav"
   Set objShell = CreateObject("Wscript.Shell")
   strCommand = "sndrec32 /play /close " & chr(34) & strSoundFile & chr(34)
   objShell.Run strCommand, 0, True
 End Sub


トップ   編集 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS