場景：教學課件需精確控制 Flash 播放進度

單純插入 Flash 只能自動播放。嵌入 Shockwave Flash Object ActiveX 控制項，再配合 VBA 按鈕，即可打造完整播放控制器，適合互動教學、逐幀分析。

步驟一：插入 Flash 控制項

1. 「檢視 → 工具列 → 控制項工具箱」。
2. 點「其他控制項」 → 選 Shockwave Flash Object。
3. 在投影片拖曳一矩形區域，調整大小。
4. 選取控制項，開啟「屬性」視窗（F4）：

• Movie：輸入 .swf 檔完整路徑（建議相對路徑，如 movie.swf）。
• Name：保留預設 ShockwaveFlash1（VBA 會用到）。
• Playing：設為 False（預設不自動播放，由按鈕控制）。
• Loop：視需求設定是否循環。

步驟二：建立控制按鈕並撰寫 VBA

在控制項工具箱選「命令按鈕」，分別建立 6 個按鈕，設定 Name 與 Caption，雙擊進入 VBA 編輯器撰寫程式碼：

按鈕功能	Name	Caption	VBA 程式碼 (Click 事件)
播放	cmd_play	播放	ShockwaveFlash1.Playing = True
暫停	cmd_pause	暫停	ShockwaveFlash1.Playing = False
前進 30 幀	cmd_forward	前進	ShockwaveFlash1.FrameNum = ShockwaveFlash1.FrameNum + 30 ShockwaveFlash1.Playing = True
後退 30 幀	cmd_back	後退	ShockwaveFlash1.FrameNum = ShockwaveFlash1.FrameNum - 30 ShockwaveFlash1.Playing = True
返回開頭	cmd_start	返回	ShockwaveFlash1.FrameNum = 1 ShockwaveFlash1.Playing = True
跳至結尾	cmd_end	結束	ShockwaveFlash1.FrameNum = ShockwaveFlash1.TotalFrames

關鍵細節：前進/後退/返回後均設 Playing = True，否則影片會停在該幀不動。

步驟三：調整巨集安全性並測試

1. 「工具 → 巨集 → 安全性」 → 設為 「低」（或「中」並啟用簽署巨集）。
2. 重新開啟 PowerPoint，進入放映模式測試按鈕功能。

應用延伸

• 同理可控制 Windows Media Player 控制項播放影音。
• 配合投影片切換事件（OnSlideShowPageChange）實現跨頁同步播放。
• 將控制器按鈕做在母版上，全課件通用。