利用 PowerPoint 2003/2007 的自訂動畫序列、矩形進度條與簡單 VBA 巨集按鈕,可製作功能完整的倒數計時器:動態數字倒數、進度條同步推進、一鍵啟動。適合演講比賽、考試計時等場合。
核心架構
- 動態數字顯示: 建立 31 個文字方塊(內容 30→0),每個套用「出現」動畫,延遲 1 秒依序顯示,前一個「下次點擊時隱藏」,最後一個「不淡出」。
- 進度條: 15 個藍色矩形疊疊排列,每 2 秒出現一個(對應 30 秒),動畫設為「出現」、「與上一個同時」、「不淡出」,底層疊一灰色矩形作背景。
- 啟動按鈕: 插入 ActiveX「命令按鈕」,屬性 Caption 設「開始計時」,雙擊進入程式碼視窗輸入 VBA:
Private Sub CommandButton1_Click()
ActivePresentation.SlideShowSettings.Run
SlideShowWindows(1).View.Next
End Sub
- 安全性設定: 「工具」→「巨集」→「安全性」→ 設為「低」,否則巨集無法執行。
動畫時序關鍵點
- 文字方塊順序:文字1(30,延遲0,單擊啟動)→ 文字2(29,延遲1秒,之後)→ … → 文字31(0,不淡出)。
- 矩形進度條插入於文字動畫序列中:矩形1 在文字3 之後,矩形2 在文字5 之後…以此類推,每 2 秒推進一格。
- 所有矩形動畫:效果「出現」,開始「之前」,延遲 1 秒,不淡出。
實測建議: 完成後按 F5 放映,點擊「開始計時」按鈕驗證倒數與進度條同步。若巨集被阻擋,請檢查「巨集安全性」設定與 ActiveX 控制項啟用狀態。