方法一:
使用 Excel 內建的函數 FollowHyperlink
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:\我的音效\目錄中。
也可以改成直接整個包含路徑與檔名一起傳入。
全站熱搜
留言列表