こんにちは！PowerPoint VBAの世界へようこそ。
マクロの記録ボタンを押してスライドを操作したはいいものの、いざ実行してみたら「なんか画面がチラチラしてエラーになった…」なんて経験、ありませんか？
実はこれ、PowerPoint VBA開発者が誰もが一度はハマる「表示モードの罠」なんです。
Excel VBAならセルの値を読み書きするだけで裏で処理が完結しますが、PowerPointは「今、画面にどう映っているか（ビュー）」がオブジェクトの挙動にめちゃくちゃ影響を与えます。
今回は、どんな表示モードでマクロが実行されてもビクともしない、「現在地の記憶と安全な自動復元コントロール」の極意を、優しく、そして徹底的に伝授しますね。ここをクリアすれば、あなたのVBAスキルは一段とプロに近づきますよ！
—
なぜPowerPoint VBAでは「表示モード」が重要なのか？
PowerPointを起動したとき、画面の右下あたりで「標準」「スライド一覧」「スライドショー」などの表示を切り替えたことがありませんか？
VBAで図形の選択やスライドの切り替え、テキストの書き換えを行う際、裏側のエンジン（ActiveWindow）は、今ユーザーが見ている画面の状態に強く依存しています。
例えば、ユーザーが「スライド一覧表示（グリッド表示）」にしている状態で、特定のシェイプを選択して処理するマクロを実行するとどうなるでしょう？
――そう、「このビューではその操作はできません」という非情な実行時エラー（Runtime Error）が飛んできます。
伝説のアーキテクトからの教訓
> 「マクロは、ユーザーがどんな画面で見ているときに実行されるか分からない」
> この前提に立てないコードは、現場では使い物になりません。だからこそ、「処理の最初に最適なビューへ強制的に切り替え、終わったら何食わぬ顔で元の画面に戻す」というおもてなしの気配りが絶対に必要なのです。
—
解決の鍵：`ActiveWindow.ViewType` を使いこなす
現在の表示モードを取得、または変更するには、`ActiveWindow.ViewType` というプロパティを使います。
PowerPointには多くのビューが存在しますが、安全にマクロを走らせるための基本形は以下の通りです。
- 標準表示：`ppViewNormal` （マクロの実行に最も安全）
- スライド一覧：`ppViewSlideSorter`
- スライドショー：`ppViewSlideShow`
それでは、実際に「現在のビューを一時退避し、処理が終わったら復元する」ための完全なコードを見てみましょう。
—
実践！ビューの一時退避＆自動復元テンプレートコード
以下のコードを、VBAエディタ（Alt + F11）の標準モジュールに貼り付けてみてください。そのまま実務で使える堅牢な設計にしています。
Sub SafeViewControlTemplate()
‘ =====================================================================
‘ 処理名: ビューの安全な一時退避と自動復元コントロール
‘ 概要: ユーザーの現在の表示モードを記憶し、安全な標準表示で処理を行った後、
‘ 処理終了時に元のビューへ完璧に復元します。
‘ =====================================================================
‘ 1. 変数の宣言（現在のビューを記憶するための入れ物）
Dim originalView As PpViewType
‘ エラーハンドリングの準備（万が一の強制終了時にも画面を戻せなくならないため）
On Error GoTo ErrorHandler
‘ — 【ステップ1：現状の把握と退避】 —
‘ 現在アクティブなウィンドウのビューモードを変数に保存します
originalView = ActiveWindow.ViewType
‘ デバッグ用（イミディエイトウィンドウに現在のビューを表示）
Debug.Print “退避した元のビュー: ” & originalView
‘ — 【ステップ2：安全なビューへの切り替え】 —
‘ 既に標準表示でなければ、安全な標準表示（ppViewNormal）に切り替えます
If originalView <> ppViewNormal Then
ActiveWindow.ViewType = ppViewNormal
End If
‘ — 【ステップ3：メインの自動化処理】 —
‘ ※ここにあなたの実行したい処理を記述します
‘ 例として、アクティブスライドのタイトルを変更する処理を想定
Call SampleMacroProcess
‘ — 【ステップ4：元のビューへの完全復元】 —
‘ 処理が正常に終わったら、退避しておいた元のビューに戻します
ActiveWindow.ViewType = originalView
MsgBox “処理が正常に完了し、画面表示も元通りに戻りました！”, vbInformation, “完了”
Exit Sub
ErrorHandler:
‘ — 【例外処理：万が一エラーが起きたときのエスケープ】 —
‘ エラーでマクロが途中で止まっても、画面が変なモードのままにならないようここで復元を試みます
MsgBox “エラーが発生しました。安全のためビューを復元します。” & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical, “エラー”
‘ エラー時でも可能な限り元に戻す
On Error Resume Next
ActiveWindow.ViewType = originalView
On Error GoTo 0
End Sub
‘ ————————————————————————-
‘ メイン処理のサンプル（おまけ）
‘ ————————————————————————-
Sub SampleMacroProcess()
‘ 画面が安定した状態で実行されるため、エラーが起きにくい！
Dim slideCount As Long
slideCount = ActivePresentation.Slides.Count
‘ 例：アクティブスライドに何か文字を入れるなどの処理をここに書く
‘ ActivePresentation.Slides(1).Shapes(1.TextFrame.TextRange.Text = “更新完了”
‘ 処理の重い画面描画を少しでも安定させるためのウェイトや処理を入れることも可能
DoEvents
End Sub
—
コードの重要なポイントを解説
ここで、エンジニアとして知っておくべき重要なポイントを3つ解説します。
1. 状態の「変数退避（スワップ）」という考え方
`Dim originalView As PpViewType` で、現在の状態を一時的にメモリ上に記憶させています。「自分の席を離れるときに、付箋に元の席番号を書いて貼っておく」ようなイメージです。プログラムの世界では鉄則のテクニックです。
2. 無駄な画面書き換えを防ぐ条件分岐
If originalView <> ppViewNormal Then
ActiveWindow.ViewType = ppViewNormal
End If
もしユーザーが最初から「標準表示」で作業している場合、わざわざビューを切り替える必要はありません。PowerPointにとって画面の再描画は重い処理（パフォーマンス低下の原因）なので、「違うときだけ切り替える」というスマートな条件分岐を入れるのがプロの技です。
3. `On Error GoTo` によるセーフティネット
もしメイン処理の途中でエラーが発生してコードが止まったとき、ビューが標準表示のまま固定されてしまったら、ユーザーは「あれ？勝手に画面が変わっちゃったんだけど…」と戸惑ってしまいます。
`ErrorHandler`ラベルを用意し、エラー時でも必ず元のビューに戻す仕組み（フェイルセーフ）を組み込んでいるのが、このコードの最も価値がある部分です。
—
まとめ：ここをクリアすれば、PowerPoint VBAの基本はバッチリです！
今回は、PowerPoint VBAの実務で避けて通れない「ActiveWindow.ViewTypeの罠」と、そのスマートな回避術について解説しました。
- PowerPointは「現在の画面表示（ビュー）」に強く依存して動く。
- 処理の前に現在のビューを変数に記憶させ、安全な標準表示（`ppViewNormal`）に寄せる。
- 終わったら（あるいはエラー時でも）必ず元のビューへ復元する。
この「おもてなしの心」を持ったコードが書けるようになれば、あなたの作るマクロの品質は一気にプロフェッショナルレベルへと跳ね上がります。
ぜひ、次の自動化開発からこのテンプレートを取り入れてみてくださいね。それでは、快適なVBAライフを！
