成品預覽：30 秒倒數、即時數字更新、百分比進度條、一鍵啟動
利用 PowerPoint 2003 「自訂動畫 → 出現」效果配合 1 秒延遲，搭配 VBA 按鈕啟動放映，零成本打造專業計時器。
製作步驟總覽
- 標題頁面
- 動態時間顯示 (31 個文字方塊 + 出現動畫)
- 進度條 (15 個矩形 + 出現動畫)
- VBA 啟動按鈕
第一部份：動態時間顯示 (倒數 30 秒)
- 版面選「只有標題」，輸入標題「英語口語比賽計時系統」，加粗。
- 降低巨集安全性： 「工具 → 巨集 → 安全性」 → 設為「低」 (否則 VBA 不執行)。
- 插入 31 個文字方塊 (0~30 秒需 31 個狀態)，內容依序：30、29、28... 2、1、0。
- 全部設定：水平置中、垂直置中，疊放在同一位置。
- 逐一設定「自訂動畫 → 新增效果 → 進入 → 出現」：
- 文字方塊 1 (30)： 開始「單擊」、延遲 0 秒、動畫後「下次單擊時隱藏」。
- 文字方塊 2-31 (29~0)： 開始「在上一個動畫之後」、延遲 1 秒、動畫後「下次單擊時隱藏」 (最後一個 0 設「不變暗」)。
動畫順序：形狀 2 (30) → 形狀 3 (29) → ... → 形狀 32 (0)。
第二部份：進度條 (15 格，每 2 秒增一格)
- 繪製一藍色無邊框矩形，複製 15 個，橫向排列等距。
- 下方再畫一大矩形 (深色) 置底層做背景軌道。
- 下方標示「0%、25%、50%、75%、100%」並橫向分佈。
- 設定矩形動畫：「出現」、開始「在上一個動畫之前」、延遲 1 秒、動畫後「不變暗」。
- 關鍵順序調整： 在「自訂動畫」面板中，將矩形動畫穿插在文字動畫之後：
文字 1(30) → 文字 2(29) → 矩形 1 → 文字 3(28) → 文字 4(27) → 矩形 2 → ... → 文字 31(0) → 矩形 15。
(因文字 1 延遲 0 秒，第一矩形放在文字 3 後；每兩個文字插一矩形，對應 2 秒)。
第三部份：VBA 啟動按鈕
- 「檢視 → 工具列 → 控制項工具箱」 → 「命令按鈕」畫在頁面。
- 右鍵 → 「屬性」 → Caption = "開始計時"。
- 雙擊按鈕進入 VBA 編輯器，輸入：
Private Sub CommandButton1_Click()
ActivePresentation.SlideShowSettings.Run
SlideShowWindows(1).View.Next
End Sub
- 關閉編輯器，回到投影片編輯模式。
測試與驗證
- 按 F5 進入放映模式。
- 點擊「開始計時」按鈕。
- 觀察：數字每秒倒數 30→0，進度條每 2 秒增一格，30 秒後歸零。
必要條件提醒
- 放映電腦 PowerPoint 巨集安全性必須設為「低」，否則 VBA 按鈕無反應。
- 若用 PowerPoint 2007+，控制項工具箱在「開發工具」索引標籤，VBA 編輯器同 Alt+F11。