英語口語比賽需 30 秒倒數計時，即時顯示剩餘秒數與進度條。PowerPoint 2003 利用「自訂動畫」→「出現」效果 + 1 秒延遲串聯 31 個文字方塊 (30→0)，搭配矩形進度條動畫與 VBA 啟動按鈕，零成本打造專業計時系統。

核心架構

• 數字顯示層： 31 個文字方塊 (內容 30, 29, ..., 1, 0)，水平垂直置中對齊。
• 動畫序列： 文字方塊 1 (30) 起始「單擊」延遲 0 秒 → 文字方塊 2 (29) 「於上一個之後」延遲 1 秒 → ... → 文字方塊 31 (0) 「不變暗」。前 30 個設「下次單擊後隱藏」，實現逐秒替換。
• 進度條層： 15 個藍色矩形 (每 2 秒顯示一個，佔 1/15 寬度) + 底層灰色背景條 + 百分比標籤 (0/25/50/75/100%)。矩形動畫「於上一個之前」延遲 1 秒依序出現，同步推進。
• 啟動按鈕： ActiveX 命令按鈕 (Caption="開始計時") + VBA 代碼啟動放映並觸發第一個動畫。

VBA 代碼 (標準模組或投影片模組)

Private Sub CommandButton1_Click()
    On Error Resume Next
    ActivePresentation.SlideShowSettings.Run
    ' 確保進入放映模式並觸發第一個動畫 (文字方塊 1 設為單擊啟動)
    If SlideShowWindows.Count > 0 Then
        SlideShowWindows(1).View.Next
    End If
End Sub

關鍵設定清單

部署必檢項目

1. 「工具」→「巨集」→「安全性」→ 設為「低」 (或「中」並信任簽署)，否則 VBA 不執行。
2. 放映測試：點擊「開始計時」按鈕 → 進入放映 → 數字每秒遞減、進度條同步推進 → 30 秒歸零停止。
3. 封裝發布：另存為 .ppsx (啟用巨集) 或 .pptm (巨集啟用簡報)，附帶使用說明 (需啟用巨集)。

此純 PPT 方案無需外部計時軟體，投影畫面專業乾淨，深受教師/主持人好評。