使用Excel VBA播放音效

口交  成人  烏龍派出所

---

方法一：

  使用 Excel 內建的函數 FollowHyperlink

AnalyzerPro

  FullFileName = "路徑+音效檔"
  ActiveWorkbook.FollowHyperlink Address:=FullFileName

  註：音效檔隻能支援 wav 格式

 

方法二：

  使用 MediaPlayer 物件

Sub myplayer(mfile As String)
  Dim myplayer As Object
  Dim wavpath
  wavpath = "路徑" & mfile
   '建立 MediaPlayer 物件
    Set myplayer = CreateObject("MediaPlayer.MediaPlayer")
    myplayer.Open wavpath
    '釋放物件 myplayer
   Set myplayer = Nothing
End Sub

使用方法： myplayer "bell.wav"

註：上面的寫法是將〝路徑〞固定住，譬如  c:\我的音效\，
       所以在叫用時隻要傳入wav檔名即可，但要預先將該檔
       存入c:\我的音效\目錄中。
       也可以改成直接整個包含路徑與檔名一起傳入。