英語口語比賽需 30 秒倒數計時且即時顯示剩餘秒數。利用 PowerPoint 2003 「自訂動畫」的「出現」效果配合 1 秒延遲，搭配簡單 VBA 宏啟動，零成本打造專業計時器。

核心架構

• 動態數字顯示：31 個文字方塊（30→0），每個設「出現」動畫，前一個結束後 1 秒出現，前 30 個設「下一次點擊隱藏」，最後一個「不變暗」。
• 進度條：15 個藍色矩形（每 2 秒出現一個），疊放於灰色底條之上，模擬百分比進度（0%、25%、50%、75%、100% 標註）。
• 啟動按鈕：ActiveX 命令按鈕 + VBA 宏啟動放映並自動翻頁觸發動畫序列。

詳細製作步驟

1. 環境準備

• 新增空白簡報，版面「僅標題」，輸入標題「英語口語比賽計時系統」，字體加粗。
• 「工具」→「巨集」→「安全性」→ 設為「低」（允許宏執行）。

2. 動態數字（31 個文字方塊）

1. 插入文字方塊，內容依序為 30、29…2、1、0，置中對齊。
2. 開啟「自訂動畫」工作窗格。
3. 逐一設定：

• 動畫：「進入」→「出現」。
• 效果選項：動畫後「下一次點擊隱藏」（第 31 個選「不變暗」）、無聲音、整批傳送。
• 計時：第 1 個「單擊」啟動、延遲 0 秒；第 2-31 個「在前一個動畫之後」、延遲 1 秒。
• 動畫順序：文字方塊 1→2→…→31。

3. 進度條（15 個矩形）

1. 繪製 1 個藍色無邊框矩形 → 複製 14 個 → 水平排列。
2. 下方加一深色大矩形作底條，設「最底層」。
3. 動畫設定：

• 順序：穿插於數字動畫中（文字 3 後矩形 1、文字 5 後矩形 2…文字 32 後矩形 15）。
• 啟動：「在前一個動畫之前」、延遲 1 秒。
• 效果：「出現」、動畫後「不變暗」。

4. 下方標註 0%、25%、50%、75%、100% 並水平分佈對齊。

4. 啟動按鈕（VBA 宏）

1. 「檢視」→「工具列」→「控制項工具箱」→ 繪製命令按鈕。
2. 右鍵按鈕 → 「屬性」→ Caption 設「開始計時」。
3. 雙擊按鈕進入程式碼視窗，輸入：

```vba Private Sub CommandButton1_Click() ActivePresentation.SlideShowSettings.Run SlideShowWindows(1).View.Next End Sub ```

5. 測試與驗證

• 按 F5 放映 → 點擊「開始計時」按鈕 → 數字從 30 依秒倒數、進度條同步推進、30 秒歸零停止。
• 關鍵：巨集安全性必須設「低」，否則 VBA 不執行。

擴展應用：修改數字總數與延遲時間可適應任何時長計時；進度條段數、顏色、樣式可依品牌視覺調整；可加入警示音效（最後 5 秒變紅/播放聲音）。