这是网上的一段控制声音的VBA代码,详情请看:
Private Sub cmd_pause_Click()
ShockwaveFlash1.Playing = False
End Sub
Private Sub cmd_forward_Click()
ShockwaveFlash1.FrameNum = ShockwaveFlash1.FrameNum + 30
ShockwaveFlash1.Playing = True
End Sub
Private Sub cmd_back_Click()
ShockwaveFlash1.FrameNum = ShockwaveFlash1.FrameNum - 30
ShockwaveFlash1.Playing = True
End Sub
Private Sub cmd_start_Click()
ShockwaveFlash1.FrameNum = 1
ShockwaveFlash1.Playing = True
End Sub
Private Sub cmd_end_Click()
ShockwaveFlash1.FrameNum = ShockwaveFlash1.TotalFrames
End Sub
本文来自CSDN博客,转载请标明出处:
zrgtyx 发表于 2009-8-27 14:22:34
这样的方法也只是可以在同一页中控制,我需要的是在其他页控制第一页的声音
jack0421 发表于 2009-8-31 06:07:23
你试试在母版里做
用触发器和vba插入都可以
用windows media player插入声音,用触发器或vba控制都可以
amwyq 发表于 2009-8-31 07:34:39
QUOTE:
原帖由 wuhuaguo 于 2009-8-27 14:05 发表
这是网上的一段控制声音的VBA代码,详情请看:
Private Sub cmd_pause_Click()
ShockwaveFlash1.Playing = False
End Sub
Private Sub cmd_fo ...
Private Sub cmd_pause_Click()
ShockwaveFlash1.Playing = False
End Sub
Private Sub cmd_forward_Click()
ShockwaveFlash1.FrameNum = ShockwaveFlash1.FrameNum + 30
ShockwaveFlash1.Playing = True
End Sub
Private Sub cmd_back_Click()
ShockwaveFlash1.FrameNum = ShockwaveFlash1.FrameNum - 30
ShockwaveFlash1.Playing = True
End Sub
Private Sub cmd_start_Click()
ShockwaveFlash1.FrameNum = 1
ShockwaveFlash1.Playing = True
End Sub
Private Sub cmd_end_Click()
ShockwaveFlash1.FrameNum = ShockwaveFlash1.TotalFrames
End Sub
本文来自CSDN博客,转载请标明出处:
用触发器和vba插入都可以
用windows media player插入声音,用触发器或vba控制都可以
QUOTE:
这是控制声音的吗?呵呵。。。。。