公告版位

方法一:

  使用 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:\我的音效\目錄中。
       也可以改成直接整個包含路徑與檔名一起傳入。

創作者介紹
創作者 ydmqqq 的頭像
ydmqqq

YDM 生活學習誌

ydmqqq 發表在 痞客邦 留言(2) 人氣()


留言列表 (2)

發表留言
  • Tonson
  • 謝謝.這很有用,解決了我在win 7沒有sndrec32用的困擾