想在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瞬間高大上，再也不用手動右鍵點了，一鍵操作賊方便~
