演講最怕時間失控。PowerPoint 內建無倒數計時器，但有兩大**零程式碼、零外掛**原生實作法：**嵌入 Flash 計時動畫 (視覺衝擊強)** 與 **頁首頁尾自動更新時間 (資訊密度高)**。雖文中以 WPS 示範，但 Office 全版本通用。

方法一：嵌入 Flash 計時動畫 (視覺導向)

1. 準備 `.swf` 計時動畫檔 (倒數/正計時、圓形/線性/數字樣式)。
2. 「檢視」→「母版」→「投影片母版」進入母版編輯模式。
3. 「插入」→「影片」→「來自檔案」→ 選擇 `.swf` 檔 →「確定」。
4. 調整動畫大小、拖曳至投影片右上角 (固定位置不干擾內容)。
5. 「關閉母版檢視」返回編輯模式，所有投影片右上角自動出現計時器。
6. F5 放映測試：計時器隨放映同步運行。

方法二：頁首頁尾動態時間 (資訊導向)

1. 進入「投影片母版」檢視。
2. 「檢視」→「頁首和頁尾」→ 勾選「日期和時間」→ 選 **「自動更新」** → 下拉選單選 **「08:40」** 格式 (顯示 時:分)。
3. 「套用至全部」。
4. 選取母版左下角的 `〈日期/時間〉` 文字框 → 調整字體/字號/顏色/右對齊 → 拖曳至右上角。
5. 關閉母版檢視 → F5 放映：右上角顯示**系統即時時間**，隨放映同步更新。

兩法對比與選擇指南

現代最佳替代：VBA 倒數計時器 (跨版本、無外部相依)

若需倒數計時功能，建議使用 **VBA 即時更新文字方塊** 方案：

' 標準模組
Public TimerEnd As Date

Sub StartCountdown(Minutes As Long)
    TimerEnd = DateAdd("n", Minutes, Now)
    Application.OnTime TimerEnd, "TimerAlert"
    UpdateTimer
End Sub

Sub UpdateTimer()
    Dim Remaining As Long
    Remaining = DateDiff("s", Now, TimerEnd)
    If Remaining > 0 Then
        ActivePresentation.Slides(1).Shapes("TimerText").TextFrame.TextRange.Text = _
            Format(Remaining \ 3600, "00") & ":" & Format((Remaining Mod 3600) \ 60, "00") & ":" & Format(Remaining Mod 60, "00")
        Application.OnTime Now + TimeSerial(0, 0, 1), "UpdateTimer"
    Else
        ActivePresentation.Slides(1).Shapes("TimerText").TextFrame.TextRange.Text = "00:00:00"
    End If
End Sub

Sub TimerAlert()
    MsgBox "時間到！", vbExclamation, "計時器"
End Sub