こんにちは！今日もPowerPoint VBAの世界を楽しんでいますか？
「マクロを使って大量のスライドを自動生成できた！……でも、処理が終わった後のスライド画面が、なぜか豆粒のように小さくなっていたり、逆に拡大されすぎて全体が見えなくなっていたりする」
そんな経験はありませんか？
せっかく素晴らしい自動化マクロを作っても、最後の編集画面が崩れていると、それを使うユーザー（あるいは自分自身）のテンションは少し下がってしまいますよね。マクロの価値は、処理の速さだけでなく、「処理が終わった瞬間の、ユーザーの目の前に広がる景色の美しさ（UX = ユーザー体験）」でも決まります。
今回は、PowerPoint VBAの基本をしっかりおさえつつ、一般的な教科書にはまず載っていない、しかしプロの現場では必須とされる「スライドのズーム倍率をウィンドウサイズに自動で合わせる（Fit to Window）」という極上のUX向上策をご紹介します。
オブジェクトモデルの制限を軽やかに飛び越える、Office内部の「UIハック（FindControl）」の世界へ、私と一緒に一歩踏み出してみましょう！
—
1. PowerPointオブジェクトモデルの基本と「ズーム」の壁
コードを書く前に、まずはPowerPointの「骨組み（オブジェクトモデル）」を優しく整理しておきましょう。
ここを理解しておくと、VBAのコードが「呪文」ではなく「意味のある言葉」に見えてきますよ。
PowerPointの階層構造（簡易図解）
PowerPoint VBAは、以下のようなピラミッド型の階層構造を持っています。
[Application] (PowerPoint全体)
│
└── [Presentation] (スライド全体のファイル)
│
└── [Slide] (1枚1枚のスライド)
画面の「見え方（ズームなど）」をコントロールしたい場合、この階層とは少し異なる「Window（ウィンドウ）」というオブジェクトを操作する必要があります。
通常、画面表示を操作するときは以下のようなオブジェクトを辿ります。
Application (PowerPoint全体)
└── ActiveWindow (今、目の前で見えているウィンドウ)
└── View (表示モード：ノーマル、アウトラインなど)
なぜ標準のプロパティ（ZoomToFit）ではダメなのか？
一般的なVBAの解説書をめくると、ズームを合わせるには次のように書けば良いとされています。
‘ 一般的な教科書に載っているコード
ActiveWindow.View.ZoomToFit = msoTrue
「これで解決じゃないですか？」と思うかもしれませんね。
しかし、ここがPowerPoint VBAの「落とし穴」なのです。
実は、この `ZoomToFit = msoTrue` というプロパティは、現在の表示状態（標準表示、スライド一覧表示、あるいはスライドショー等）や、マクロ実行直後のフォーカス状態によっては、動作が極めて不安定になったり、最悪の場合は「実行時エラー」を発生させてマクロを強制終了させてしまいます。
「せっかく自動化が成功したのに、最後の最後、画面を綺麗にする処理でエラーが出る……」
これでは本末転倒ですね。そこで、私たちプロのエンジニアは、オブジェクトモデルの枠組みを超えた「別のルート」を使います。
—
2. CommandBars.FindControl（MsoIdハック）という秘密のルート
Office（Word, Excel, PowerPoint）には、古くから受け継がれている強力なユーザーインターフェース（UI）制御エンジンが裏側で眠っています。それが `CommandBars` です。
現在のリボンUI（画面上部のメニュー）の裏側でも、この `CommandBars` がすべてのコマンドを処理しています。
PowerPointには、画面右下にある「ウィンドウサイズに合わせる」というボタンがありますよね。
 (※イメージ：直感的で美しいUIの裏側には、常にそれを支える厳密なシステムが存在します)
この「ウィンドウサイズに合わせる」というコマンドには、Officeの内部で `1103` という固有の識別番号（MsoId / Control ID）が割り当てられています。
VBAの標準オブジェクト（`ZoomToFit`）が「機嫌を損ねて」動かないときでも、この 「ID: 1103 のコマンドボタンを、プログラムから直接指で押し込む」 という操作を行えば、PowerPointは一切の言い訳をせず、ネイティブ（標準）の最速処理でズーム倍率をウィンドウにピッタリと合わせてくれます。
これを実現するのが、`Application.CommandBars.FindControl(Id:=1103)` なのです。
—
3. 【プロ仕様】コピペで動く極限の堅牢コード
それでは、実際のコードを見てみましょう。
ただコマンドを実行するだけでなく、どのような状況下（スライドが1枚もない、非表示状態など）でも絶対にエラーで落ちない「プロフェッショナル仕様」の堅牢なラッパー関数（部品）に仕上げました。
標準モジュールを新規作成し、以下のコードをそのまま貼り付けてみてください。
Option Explicit
”’
”’
Public Sub FitSlideToWindow()
Dim targetCommand As Object
Const FIT_TO_WINDOW_ID As Long = 1103 ‘ 「ウィンドウサイズに合わせる」のMsoId
‘ 1. 安全装置：そもそもプレゼンテーションが開かれていない場合は処理をスキップ
If PowerPoint.Presentations.Count = 0 Then Exit Sub
If PowerPoint.ActiveWindow Is Nothing Then Exit Sub
‘ 2. エラーハンドリングの開始
‘ （万が一、特殊なビューでコマンドが実行不可能な状態でもマクロ全体を落とさないための防御）
On Error Resume Next
‘ 3. PowerPoint内部のコマンドバーから「Fit to Window」コントロールを検索
Set targetCommand = PowerPoint.Application.CommandBars.FindControl(Id:=FIT_TO_WINDOW_ID)
‘ 4. コマンドが存在し、かつ実行可能な状態であるかを確認して強制実行
If Not targetCommand Is Nothing Then
If targetCommand.Enabled = True Then
targetCommand.Execute
End If
End If
‘ 5. オブジェクトの解放とエラーハンドリングの解除
Set targetCommand = Nothing
On Error GoTo 0
End Sub
”’
”’
Sub Test_FitSlideToWindow()
‘ テスト用にわざとズームを30%（極小）にする
On Error Resume Next
ActiveWindow.View.Zoom = 30
On Error GoTo 0
‘ 1秒待機（ズームアウトした状態を目視するため。実際の業務では不要です）
Application.Wait (Now + TimeValue(“0:00:01”))
‘ ★ここでハック関数を呼び出す！
FitSlideToWindow
MsgBox “スライドのズームが美しく自動調整されました！”, vbInformation + vbOKOnly, “UX向上策の成功”
End Sub
—
4. コードの徹底解説：先輩エンジニアが教える「ここがプロの書き方」
このコードには、初心者の教科書には書かれていない「プロの現場の知恵」が3つ詰まっています。
① `On Error Resume Next` の正しい使い方
多くの入門書では「エラーを無視するな」と書かれていますが、それは半分正解で半分間違いです。
今回のような「UI（画面表示）の調整」は、マクロの本質的な処理（データの書き込みやファイル保存）とは異なり、「失敗しても業務に支障が出ない処理」です。
もし、PowerPointが裏で重い処理をしていて、一瞬だけコマンドの実行に失敗したとしても、マクロ全体が「黄色いエラー画面」で止まってしまう方がユーザーにとっては大災害です。
そのため、ここでは「安全にスルーして、マクロを完走させる」ために、局所的に `On Error Resume Next` を使っています。
② `Enabled`（実行可能状態）のチェック
`FindControl` で見つけたコマンドボタンが、現在実行できる状態（グレーアウトしていない状態）かどうかを `targetCommand.Enabled = True` で確認しています。
これを挟むことで、無効なタイミングでのコマンド実行による予期せぬエラーを完全に防ぐことができます。
③ オブジェクトの明示的解放（`Set targetCommand = Nothing`）
VBAは自動的にメモリを管理してくれますが、`CommandBars` のようなOfficeのディープな内部オブジェクトにアクセスした際は、使い終わったら明示的に `Nothing` を代入してメモリを開放するのが、大人の作法（メモリリーク防止）です。
—
5. まとめ：ここをクリアすれば、PowerPoint VBAの基礎はバッチリです！
今回の「FindControl（MsoId）ハック」、いかがでしたでしょうか？
スライドの自動生成マクロの最後に、この `FitSlideToWindow` を1行追加するだけで、マクロが終了した瞬間にスライドがすっと美しくウィンドウの真ん中に収まります。
これだけで、あなたの作ったマクロの「完成度」は、周囲のメンバーから見て何倍にも跳ね上がります。
- VBAの基本オブジェクト階層（Application -> Window -> View）を理解する
- オブジェクトモデルの限界を感じたら、Office内部の「CommandBars」に目を向けてみる
- 「動けばいい」から一歩進んで、「終わった後の見た目の美しさ（UX）」にこだわる
この3つの視点を持てたなら、あなたのPowerPoint VBAの実力は、もう「マクロの記録」を完全に脱却し、プロフェッショナルへの道へと進んでいます。
これからも、エレガントで優しいコードを書いていきましょう。応援しています！
