こんにちは！PowerPointの自動化の世界へようこそ。
マクロの記録ボタンを押して「動いたはいいけれど、中身のコードがごちゃごちゃしていて直せない…」そんな壁にぶつかっていませんか？
今回は、実務中級へステップアップするための登竜門として、「プレゼンテーション全体の日付フォーマットを、マスタ側から一瞬で切り替えるグローバル設定VBA」を一緒に作っていきます。
ここをクリアすれば、PowerPointのオブジェクトモデルの核心（ApplicationからSlideMasterに至る階層構造）が手に取るように分かるようになりますよ。しっかりついてきてくださいね！
—
1. なぜ「スタルマスタ側」をいじる必要があるのか？
グローバル企業での資料作りを想像してみてください。
あるときは「令和6年10月15日」という和暦の日本式で。またあるときは「October 15, 2024」という英語圏向けの西暦で。
これを何十枚、何百枚とある個別のスライド一枚一枚のテキストボックスをダブルクリックして手動で書き換えていたら…日が暮れてしまいますよね。さらに、うっかり消してしまったり、フォントが崩れたりするヒューマンエラーの温床にもなります。
PowerPointには、全スライドの共通の土台である「スライドマスタ（SlideMaster）」という概念があります。
このマスタに組み込まれている「日付と時刻のプレースホルダー（HeadersFooters）」をVBAから直接コントロールできれば、たった一瞬で、プレゼンテーション全体の日付フォーマットをグローバルに切り替えることができるのです。
—
2. PowerPointオブジェクトモデルの全体像を把握しよう
コードを書く前に、PowerPointがメモリ上でどのような階層構造を持っているか（オブジェクトモデル）を押さえておきましょう。ここがVBAの肝です。
Application （PowerPointアプリ全体）
└─ Presentations(1) （今開いているファイル）
└─ SlideMaster （スライドの大元）
└─ HeadersFooters （ヘッダーとフッターの設定）
├─ DateAndTime （日付と時刻）
└─ …
私たちが操作するのは、一番根っこの `Application` から開いている `Presentation` を経由して、`SlideMaster` の `HeadersFooters` にアクセスするルートです。
—
3. 実装：グローバル日付切り替えマクロ
それでは、実際に動くコードを見てみましょう。
今回は、「日本語（和暦・自動更新）」と「英語（西暦・自動更新）」をボタン一つで切り替えるプロシージャを作成します。
VBAエディタ（[Alt] + [F11]）を開き、標準モジュールに以下のコードを貼り付けてください。
Option Explicit
‘ ==============================================================================
‘ 処理名 : SwitchDateGlobalFormat
‘ 概要 : アクティブなプレゼンのスライドマスタを操作し、日付フォーマットを一括切替
‘ 引数 : isEnglish – Trueの場合：英語（西暦） / Falseの場合：日本語（和暦）
‘ ==============================================================================
Public Sub SwitchDateGlobalFormat(ByVal isEnglish As Boolean)
‘ 1. エラーハンドリングの準備
On Error GoTo ErrorHandler
Dim targetPres As Presentation
Set targetPres = ActivePresentation
‘ ファイルが開かれていない場合のガード節
If targetPres Is Nothing Then
MsgBox “処理対象のプレゼンテーションが開かれていません。”, vbCritical, “エラー”
Exit Sub
End If
‘ 2. スライドマスタのHeadersFootersオブジェクトを取得
‘ PowerPointのマスタには「スライドマスタ」と「タイトルマスタ」が存在するため、
‘ 基本となる SlideMaster(1) をターゲットにします。
Dim targetMaster As SlideMaster
Set targetMaster = targetPres.SlideMaster
Dim dhf As HeaderFooter
Set dhf = targetMaster.HeadersFooters.DateAndTime
‘ 3. 日付フィールドの有効化とフォーマットの動的変更
With dhf
.Visible = True ‘ 日付の表示を強制的にON
.UseDateTimeMpr = True ‘ 「自動更新（Update automatically）」に設定
If isEnglish Then
‘ — 【英語モード】英語の長形式（例: October 15, 2024） —
‘ ※ ppDateLongHTML や固有の列挙型を使用します
.Format = ppDateFigureEnglishLong ‘ 英語の長形式フォーマットを指定
.LanguageID = msoLanguageEnglishUS ‘ 言語をアメリカ英語に設定
MsgBox “日付フォーマットを「英語（西暦）」に切り替えました。”, vbInformation, “グローバル設定完了”
Else
‘ — 【日本語モード】和暦形式（例: 令和6年10月15日） —
.Format = ppDateJapaneseEmperorEra ‘ 和暦（元号）フォーマットを指定
.LanguageID = msoLanguageJapanese ‘ 言語を日本語に設定
MsgBox “日付フォーマットを「日本語（和暦）」に切り替えました。”, vbInformation, “グローバル設定完了”
End If
End With
Exit Sub
ErrorHandler:
‘ 予期せぬエラーをキャッチ
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical, “システムエラー”
End Sub
‘ ——————————————————————————
‘ ラッパープロシージャ（リボンやクイックアクセスツールバーから呼び出す用）
‘ ——————————————————————————
Public Sub SetDateToJapanese()
Call SwitchDateGlobalFormat(False)
End Sub
Public Sub SetDateToEnglish()
Call SwitchDateGlobalFormat(True)
End Sub
—
4. コードの深掘りポイント（ここが重要！）
初学者がつまずきやすいポイントや、実務で絶対に知っておくべき仕様をいくつか解説します。
① `ActivePresentation` との付き合い方
コード内にある `ActivePresentation` は、「今、ユーザーが画面の最前面で編集しているファイル」を指します。
実務のツールを作る際は、ファイルを特定して `Presentations(“hoge.pptx”)` のように名前で指定することもありますが、今回は手軽に実行できるようアクティブなものを対象にしています。
② なぜ `.UseDateTimeMpr = True` が必要なのか？
UI（画面）で「日付と時刻」にチェックを入れる動作をコードで再現するのが `.Visible = True` です。
さらに、固定のテキストではなく「ファイルを開くたびに今日の日付に自動更新されるようにしたい」場合は、`.UseDateTimeMpr = True`（自動更新モード）を指定する必要があります。ここを忘れると、日付が「今日の日付で固定されたただの文字列」になってしまいます。
③ 定数（Enum）の力
`.Format = ppDateJapaneseEmperorEra` や `.LanguageID = msoLanguageJapanese` のような記述が出てきます。これらはPowerPointが予め用意してくれている「定数（Enum）」と呼ばれるあだ名のようなものです。
数字の「1」や「2」を直接書くよりも、コードが圧倒的に読みやすくなり、バグを防ぐことができます。
—
5. よくあるエラーと実務上の注意点
このマクロを動かす際、現場でよく遭遇する「罠」がいくつかあります。
1. 「実行時エラー ‘-2147188160 (80048240)’: 指定されたビューではこの操作を行えません」
- 原因: PowerPointが「スライドショー実行中」や「標準ビュー以外（スートエディタビューなど）」にあるときにマクロが走ると発生します。
- 対策: 必ず通常の「標準表示（Normal View）」の状態で実行するようにしてください。
2. 日付のプレースホルダー自体がマスタから削除されている
- 原因: 元々のテンプレート作成者が、スライドマスタ上の「日付エリア（フッター部品）」を削除してしまっている場合、VBAから `HeadersFooters` を操作しようとしても値が反映されません。
- 対策: マスタースライド側（[表示] ＞ [スライド マスタ]）にいき、日付を入力するボックスがきちんと存在するか確認しましょう。
—
6. おわりに：ここをクリアすれば、あなたももう中級者
お疲れ様でした！
今回扱った `SlideMaster` や `HeadersFooters` は、通常の「マクロの記録」では絶対にコードが出力されない領域です。ここを自分の手で書き、思い通りにスライド全体の挙動をコントロールできたのであれば、あなたはもう「初学者」の枠を完全に脱却しています。
PowerPoint VBAの可能性は無限大です。
日々の億劫な手作業をコードで自動化し、クリエイティブで本質的な仕事に集中する時間を生み出していきましょう。
それでは、次回の高度な自動化の世界でお会いしましょう！
