想在PPT里加个Flash播放器还能暂停、快进？其实挺简单的！只要用上Shockwave Flash Object控件就行，不过很多人发现插进去只能自动播，没法控制，点右键菜单又麻烦，那咋办？自己做个控制按钮就完事了！
首先你得确认电脑装了Flash插件，一般以前能看网页小游戏或动画的都没问题，IE都支持的话那就妥了。
打开PPT 2002或者2003版本（老一点的），找到控件工具箱，把Shockwave Flash Object拖进去，设置下路径，把你的.swf文件插进来。
然后还在控件工具箱里，选命令按钮，拉六个小按钮到幻灯片上，建议放在Flash下面，整齐点。右键每个按钮 → 属性 → 把Caption分别改成：播放、暂停、最前、向前、向后、最后。
改完名字就开始写代码啦：
- 双击播放按钮，在弹出来的代码框里，`Private Sub CommandButton1_Click()` 和 `End Sub` 中间加一句：
`ShockwaveFlash1.Playing = True`
- 双击暂停按钮，写：
`ShockwaveFlash1.Playing = False`
- 最前按钮：跳到第一帧
`ShockwaveFlash1.FrameNum = 1`
- 向前按钮：往前跳50帧（可以自己调）
`ShockwaveFlash1.FrameNum = ShockwaveFlash1.FrameNum - 50`
- 向后按钮：往后退50帧
`ShockwaveFlash1.FrameNum = ShockwaveFlash1.FrameNum + 50`
- 最后按钮稍微复杂点，可以用个循环一直往后跳直到最后一帧：
Dim a As Integer
For a = 1 To 1000
ShockwaveFlash1.FrameNum = ShockwaveFlash1.FrameNum + 1
If a > ShockwaveFlash1.FrameNum Then
ShockwaveFlash1.Playing = False
Else
ShockwaveFlash1.Playing = True
End If
Next
写完关掉代码窗口，回到幻灯片，切换到幻灯片放映模式试试，这几个按钮应该就能控制Flash啦！
注意：PPT必须用旧版（比如2003），而且得启用宏，不然按钮不生效。现在Win10以上系统可能默认没装Flash，这招就不太灵了，毕竟Adobe都停更Flash了……但如果是内网汇报、老机器用，还是能救个急的。
搞定之后你的PPT瞬间高大上，再也不用手动右键点了，一键操作贼方便~
首先你得确认电脑装了Flash插件，一般以前能看网页小游戏或动画的都没问题，IE都支持的话那就妥了。
打开PPT 2002或者2003版本（老一点的），找到控件工具箱，把Shockwave Flash Object拖进去，设置下路径，把你的.swf文件插进来。
然后还在控件工具箱里，选命令按钮，拉六个小按钮到幻灯片上，建议放在Flash下面，整齐点。右键每个按钮 → 属性 → 把Caption分别改成：播放、暂停、最前、向前、向后、最后。
改完名字就开始写代码啦：
- 双击播放按钮，在弹出来的代码框里，`Private Sub CommandButton1_Click()` 和 `End Sub` 中间加一句：
`ShockwaveFlash1.Playing = True`
- 双击暂停按钮，写：
`ShockwaveFlash1.Playing = False`
- 最前按钮：跳到第一帧
`ShockwaveFlash1.FrameNum = 1`
- 向前按钮：往前跳50帧（可以自己调）
`ShockwaveFlash1.FrameNum = ShockwaveFlash1.FrameNum - 50`
- 向后按钮：往后退50帧
`ShockwaveFlash1.FrameNum = ShockwaveFlash1.FrameNum + 50`
- 最后按钮稍微复杂点，可以用个循环一直往后跳直到最后一帧：
Dim a As Integer
For a = 1 To 1000
ShockwaveFlash1.FrameNum = ShockwaveFlash1.FrameNum + 1
If a > ShockwaveFlash1.FrameNum Then
ShockwaveFlash1.Playing = False
Else
ShockwaveFlash1.Playing = True
End If
Next
写完关掉代码窗口，回到幻灯片，切换到幻灯片放映模式试试，这几个按钮应该就能控制Flash啦！
注意：PPT必须用旧版（比如2003），而且得启用宏，不然按钮不生效。现在Win10以上系统可能默认没装Flash，这招就不太灵了，毕竟Adobe都停更Flash了……但如果是内网汇报、老机器用，还是能救个急的。
搞定之后你的PPT瞬间高大上，再也不用手动右键点了，一键操作贼方便~
