1. 制作(播放)按钮
在“控件工具箱”中选择“命令按钮”,在幻灯片中拖动,即可拖出一个命令按钮。调整好大小,在“属性”面板中作如下设置:“名称”中输入“cmd_play”,“Caption”中输入“播放”。双击该按钮,进入VBA编辑窗口,输入如下内容:
Private Sub cmd_play_Click()
ShockwaveFlash1.Playing = True
End Sub
2.暂停按钮
Private Sub cmd_pause_Click()
ShockwaveFlash1.Playing = False
End Sub
3.停止按钮
Private Sub cmd_end_Click()
ShockwaveFlash1.FrameNum = ShockwaveFlash1.TotalFrames
End Sub