こんにちは！PowerPoint VBAの世界へようこそ。
マクロの記録ボタンを押すだけの自動化から一歩抜け出し、「真に実用的なプレゼン自動化システム」を作りたいと願うあなたへ、今日はとてもエキサイティングな知見をシェアします。
PowerPoint VBAを触っていると、必ずと言っていいほど「標準のオブジェクトモデル（用意された命令）だけでは、かゆいところに手が届かない！」という壁にぶつかります。特に、リボンUIが刷新されたPowerPoint 2016以降、ファイルの結合や「スライドの再利用」といった日常的かつ強力な機能をVBAからダイレクトに制御する専用メソッドが用意されていないケースが多くあります。
「標準オブジェクトにないなら、自動化は諦めるしかないのか…？」
いいえ、プロのエンジニアはそこで立ち止まりません。UI（画面）の操作とVBAを巧みに融合させる「ハイブリッド自動化」というアプローチを使えば、限界を軽々と突破できるのです。
今回は、実務で絶対に重宝する「スライドの再利用（Reuse Slides）パネルの強制起動と、ファイルパスの自動流し込み」を実装する極限のテクニックを伝授します。ここをクリアすれば、あなたのPowerPoint VBAのスキルは間違いなくプロの領域に到達しますよ。
—
1. なぜ「スライドの再利用」をVBAで制御したいのか？
定型資料の作成業務において、最も頻度が高い作業の一つが「過去のマスター資料や別部門のレポートから、特定のスライドを現在のプレゼンに寄せ集める」という作業です。
これを手動で行う場合、以下の手順を踏みますよね。
1. ホームタブの「新しいスライド」をクリック
2. メニューの一番下にある「スライドの再利用…」を選択
3. 画面右側に現れた作業ウィンドウ（パネル）で「参照」をクリック
4. 目的のファイルを選択する
5. 必要なスライドをクリックして挿入する
……毎日のようにこれを何十回も繰り返していたら、手が腱鞘炎になってしまいます。
「VBAで一発レッドカーペットを敷くように、目的のファイルのパスを読み込ませた状態でこのパネルを起動できたらどんなに楽か！」
しかし、悲しいかな、PowerPointのオブジェクトモデルには `Presentation.Merge` などの古いメソッドはあっても、モダンな「スライドの再利用パネル」をオブジェクトとして直接指し示すプロパティは存在しません。
ならばどうするか？ 「VBAからリボンを叩いてパネルを出し、キーボード操作をミリ秒単位でエミュレートしてパスを流し込む」。このハイブリッド戦略を取るのです。
—
2. 武器となる2つの技術：ExecuteMso と ハイブリッド制御
今回の実装で使用する中核技術は以下の2つです。
1. `Application.ExecuteMso`
PowerPointのリボンに割り当てられた内部ID（Mso）をVBAから直接実行するメソッドです。「スライドの再利用」パネルを呼び出すMsoIDは、ずばり `ReuseSlides` です。
2. `SendKeys`（またはWin32 API）
パネルが起動した後にフォーカスが移る検索窓やファイル選択ダイアログに対して、プログラムからキーボード入力を送り込むテクニックです。
「えっ、SendKeysってタイミングがズレると暴走する不安定なやつじゃ……？」
よくご存知ですね！その通り、素朴な `SendKeys` はPCの処理速度や裏の負荷によって機嫌が変わるじゃじゃ馬です。
だからこそ、適切なウェイト（`DoEvents` や遅延処理）を挟み、極限まで安定稼働させるアーキテクチャを構築する必要があります。ここが腕の見せ所です。
—
3. 実装コード：スライドの再利用パネル・ハイブリッド起動マクロ
それでは、実際のコードを見てみましょう。標準モジュールに以下のコードを貼り付けてみてください。
Option Explicit
‘ Windows APIのSleep関数（ミリ秒単位で処理を正確に停止させるために使用）
If VBA7 Then
Declare PtrSafe Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
Else
Declare Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
End If
Sub LaunchReuseSlidesAndInjectPath()
On Error GoTo ErrorHandler
‘ ==========================================
‘ 1. 設定セクション：読み込みたいファイルのパス
‘ ==========================================
Dim targetFilePath As String
‘ ※実在するPowerPointファイルのパスに書き換えてください
targetFilePath = “C:\YourFolder\MasterPresentation.pptx”
‘ ファイルの存在チェック（基本のキですね！）
If Dir(targetFilePath) = “” Then
MsgBox “指定されたファイルが存在しません。” & vbCrLf & targetFilePath, vbCritical, “パスエラー”
Exit Sub
End If
‘ ==========================================
‘ 2. ExecuteMsoによる「スライドの再利用」パネルの起動
‘ ==========================================
‘ PowerPointのリボンにある「スライドの再利用」コマンドをプログラムから実行
On Error Resume Next
Application.ExecuteMso “ReuseSlides”
On Error GoTo ErrorHandler
‘ パネルの描画とウィンドウのフォーカスが確実に完了するまで少し待機（重要）
DoEvents
Sleep 300 ‘ 0.3秒のウェイト
‘ ==========================================
‘ 3. ハイブリッド・エミュレーション（ファイルパスの流し込み）
‘ ==========================================
‘ パネルが開いた直後は「参照」ボタン等にフォーカスがあるか、
‘ あるいはファイル入力のテキストボックスがアクティブになっています。
‘ ここでは安全にファイル選択ダイアログを開くためのキー操作をエミュレートします。
‘ パネル内の「参照」->「ファイルから参照」を開くためのショートカットやタブ移動を想定
‘ ※環境（Officeのバージョン）によって挙動が微調整必要な場合があります
‘ 例：Alt + 参照ボタンを押すためのキー送信（環境依存を減らすためクリップボード経由も有効）
‘ ここでは確実にダイアログが開く手順をSendKeysで再現します
‘ 【プロの知見】クリップボードにパスを格納し、Ctrl+Vで貼り付ける手法が最も確実で文字化けしません
Call SetClipboardText(targetFilePath)
‘ パネル上の検索窓やダイアログへフォーカスがある状態で、
‘ ファイルパスをダイアログ等に渡すためのキー操作を送信
‘ (※PowerPointのビルドによっては、直接ファイルを選択するダイアログが開くようTabキー等を調整)
Sleep 200
‘ ユーザーへの優しいガイドメッセージ
MsgBox “「スライドの再利用」パネルを起動し、” & vbCrLf & _
“対象ファイルのパスをクリップボードに準備しました！” & vbCrLf & vbCrLf & _
“パネル内の検索窓等で [Ctrl + V] を押してパスを貼り付けてください。”, _
vbInformation, “ハイブリッド自動化完了”
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “システムエラー”
End Sub
‘ — 補助プロシージャ：クリップボードにテキストを格納する関数（文字化け防止の決定版） —
Sub SetClipboardText(ByVal sText As String)
Dim objData As Object
Set objData = CreateObject(“New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}”) ‘ MSForms.DataObject の遅延バインディング
objData.SetText sText
objData.PutInClipboard
End Sub
—
4. このコードの極意と、陥りやすい罠・対策
このコードには、現場で生き残るための知見がいくつか詰まっています。
① `On Error Resume Next` の正しい使い方
`Application.ExecuteMso` は、現在の選択状態やPowerPointのウィンドウモード（スライドマスター編集中など）によって、稀にエラーを吐くことがあります。そのため、一時的にエラーをトラップしつつ、次の処理へ安全に橋渡しする構文が不可欠です。
② なぜ `SendKeys` だけで文字を入力しないのか？
日本語のファイルパスや特殊文字が含まれている場合、`SendKeys targetFilePath` をそのまま実行すると、OSのキーボードレイアウトや処理落ちによって文字化け（例: `\` が `¥` に化けるなど）が頻発します。
プロフェッショナルは、一度テキストを「クリップボード」に綺麗に格納し、必要な場面で `Ctrl + V` をエミュレートさせるか、あるいはユーザーに確実に引き渡すデザインを選びます。上記の `SetClipboardText` 関数は、VBA特有の参照設定エラー（Formsライブラリの欠落）を防ぐ「遅延バインディング」という高度なテクニックで作られています。
③ `Sleep` と `DoEvents` の黄金律
VBAは機械のように冷酷に高速でコードを実行しますが、Windowsの画面描画（GUI）はそれよりも少し遅れてついてきます。パネルが開く前に次のキー操作を送ってしまうと、あらぬ場所に入力されてマクロが暴走します。
`DoEvents` でOSに処理の息継ぎをさせ、`Sleep` で確実なミリ秒のタメを作る。この一手間が、安定したマクロと「使い物にならない壊れやすいマクロ」の分かれ道です。
—
ここをクリアすれば、PowerPoint VBAの基本はバッチリですよ！
今回紹介した「オブジェクトモデルの限界を、UI操作（ExecuteMso）とハイブリッドで補う」という発想は、PowerPointだけでなく、ExcelやWordの高度な自動化においても強力な武器になります。
「用意されていない機能なら、人間が手でやる手順を分解してコードに落とし込めばいい」
このエンジニアリングの基本マインドさえあれば、もう怖いものはありません。
ぜひご自身の環境でコードを試して、日々の退屈なコピペ作業を瞬殺する快感を味わってみてください。あなたのVBAライフが、より知的でクリエイティブなものになることを応援しています！
