需要在簡報中放一個可互動的月曆？選日期、切換月份、標記重點日？PowerPoint ActiveX 控制項「Calendar Control 2007」原生支援，屬性面板視覺化設定字體、顏色、樣式，無需寫代碼即可嵌入即用。

四步嵌入互動日曆

1. 「檢視」→「工具列」→「控制工具箱」→ 開啟 ActiveX 控制項工具箱。
2. 工具箱最右側「更多控制項」圖示（扳手/錘子圖標）→ 清單中找「Calendar Control 2007」→ 選中。
3. 在投影片拖曳拉出日曆控制項區域（大小可後調）。
4. 右鍵日曆 →「屬性」→ 視覺化調整：
   • Font：字體、大小、粗細（如微軟正黑體 12 pt 粗體）。
   • BackColor、ForeColor、TitleBackColor、TitleForeColor、TrailingForeColor（上月/下月日期顏色）等 10+ 色彩屬性。
   • ShowTitle、ShowDays、ShowGridlines 等布林屬性控制顯示元素。
   • FirstDay 設週起始日 (0=星期日, 1=星期一)。

進階：VBA 事件回應（選做）

Private Sub Calendar1_Click()
    ' 使用者點選日期後觸發
    Dim selectedDate As Date
    selectedDate = Calendar1.Value
    MsgBox "您選擇了 " & Format(selectedDate, "yyyy年mm月dd日") & "，此日安排：……"
End Sub

Private Sub Calendar1_AfterUpdate()
    ' 月份/年份切換後觸發，可動態載入該月行程
End Sub

避坑與相容性

• 64 位 Office：舊版 Calendar Control 2007 (mscal.ocx) 可能未註冊/不支援 64 位。解決：安裝 64 位相容版或改用「Microsoft Date and Time Picker Control 6.0」+ 自訂 UI。
• 設計模式：編輯屬性/代碼時需開啟「開發工具」→「設計模式」；放映/互動時必須關閉設計模式。
• 巨集安全性：檔案存 .pptm，信任中心啟用巨集。
• 跨機攜帶：目標電腦需註冊相同 OCX，否則控制項顯示為空白框。建議改用純形狀+VBA 繪製日曆（無相依性）或使用 Office 365 線上版內建日曆元件。

ActiveX 日曆控制項是「重控制項、輕代碼」的典型代表：屬性面板搞定 90% 外觀，幾行 VBA 掛載業務邏輯。但在現代跨平台協作場景下，建議評估「純形狀繪製 + VBA 邏輯」或「Office Scripts / Power Automate」等無相依性方案。