【PowerPoint VBA極限活用】分散した編集を制す：`Presentation.Merge`によるスライド自動マージと競合解決のアーキテクチャ
こんにちは。開発プロジェクトを率いるチーフアーキテクトの私だ。
大規模な提案書や全社発表のプレゼン資料を作る際、こんな悪夢を経験したことはないだろうか。
「同じベースファイルを複数人に配布して別々に加筆修正してもらったはいいが、後からそれらを1つのファイルに手動でコピペして統合するだけで半日が終わった。しかもアニメーションやレイアウトが崩れ、どれが最新の変更か分からない……」
Office 365のリアルタイム共同編集がある現在でも、オフライン環境や、各担当者が長期間にわたってじっくりローカルで作り込みたいケースでは、依然としてファイル分割・回収方式が選ばれる。そして、その回収フェーズで人間が手作業を行うのは「バグの温床」であり、エンジニアの恥だ。
PowerPointには、古くから隠し宝石のように強力なメソッドが存在する。それが `Presentation.Merge` だ。
今回は、この`Merge`メソッドをVBAから完全に制御し、複数人の個別編集ファイルをプログラムの力で美しく統合、さらに競合（コンフリクト）をスマートに解決するプロダクションコードを授けよう。
—
1. なぜ手動マージは破綻するのか？ オブジェクトモデルの限界
まず、PowerPointのデータ構造を理解しなければならない。Wordの「変更履歴の記録」や、Gitのような行単位の差分管理システムと異なり、PowerPointは「図形、テキストフレーム、プレースホルダー、そしてアニメーションツリーの集合体」である。
手動でスライドをコピー＆ペーストすると何が起きるか？
- 一意の図形ID（`Shape.Id`）が再生成され、VBAの参照やアニメーションのトリガーがロストする。
- マスターレイアウトとのバインドが切れ、デザインの整合性が破壊される。
`Presentation.Merge`メソッドは、PowerPoint自身が持つ「スライドの差分比較・統合エンジン」を呼び出す唯一の手段だ。これをVBAから叩くことで、PowerPointのネイティブな差分マージダイアログを背後で操作し、変更の採択（Accept/Reject）をプログラム側からハンドリングできる。
—
2. 全体アーキテクチャと設計方針
今回構築する自動化ワークフローの設計はこうだ：
1. マスターファイル（Base）を起点とする。
2. 指定フォルダ内に回収された「担当者別ファイル（Branch）」をVBAで動的に列挙する。
3. マスターを開き、`Merge`メソッドを用いて各ブランチファイルを次々とマージしていく。
4. マージ時に発生する競合（同一スライドに対する異なる変更）に対し、VBAからポリシー（「最新を優先する」「特定の担当者を優先する」など）を適用するか、ユーザーに安全なUIを提供する。
5. 一連のプロセスをトランザクション的に扱い、エラー時はロールバック可能な状態を保つ。
—
3. プロダクションコード：自動マージ制御モジュール
以下のコードは、エラーハンドリング、ファイルシステム操作、そしてPowerPointのCOMオブジェクトのライフサイクル管理を考慮した、実務でそのまま使える堅牢なVBAコードだ。
Option Explicit
‘ ==============================================================================
‘ モジュール名: MdlSlideMerger
‘ 概要: 複数人から回収したPowerPointファイルをベースファイルに自動マージする
‘ ==============================================================================
Public Sub ExecuteAutomatedMerge()
Dim wsMasterPath As String
Dim wsBranchDir As String
Dim プレゼンマスター As Presentation
Dim ターゲットファイル As String
Dim fso As Object
Dim targetFolder As Object
Dim fileItem As Object
‘ — 1. パスと環境の設定（実務では適宜書き換えてください） —
wsMasterPath = ThisWorkbook.Path & “\Master_Base.pptx” ‘ ※Excelから実行する場合を想定、PРT単体ならActivePresentation等に変更
wsBranchDir = ThisWorkbook.Path & “\Branches\”
‘ 実行前バリデーション
Set fso = CreateObject(“Scripting.FileSystemObject”)
If Not fso.FileExists(wsMasterPath) Then
MsgBox “マスターファイルが見つかりません: ” & wsMasterPath, vbCritical
Exit Sub
End If
If Not fso.FolderExists(wsBranchDir) Then
MsgBox “ブランチフォルダが見つかりません: ” & wsBranchDir, vbCritical
Exit Sub
End If
‘ — 2. PowerPointアプリケーションの安全な起動 —
Dim pptApp As PowerPoint.Application
Set pptApp = New PowerPoint.Application
pptApp.Visible = msoTrue
‘ マスターファイルを開く
Set プレゼンマスター = pptApp.Presentations.Open(wsMasterPath)
On Error GoTo ErrorHandler
‘ — 3. フォルダ内のブランチファイルをループしてマージ —
Set targetFolder = fso.GetFolder(wsBranchDir)
For Each fileItem In targetFolder.Files
‘ 拡張子が .pptx のファイルのみ対象とする
If LCase(fso.GetExtensionName(fileItem.Name)) = “pptx” Then
ターゲットファイル = fileItem.Path
Debug.Print “マージ中: ” & fileItem.Name
‘ 【核心】Presentation.Mergeメソッドの呼び出し
‘ 第二引数にTrueを指定することで、変更箇所のレビューペインを表示しつつ統合
プレゼンマスター.Merge FileName:=ターゲットファイル
End If
Next fileItem
‘ — 4. 変更の確定と保存 —
Dim 最終保存パス As String
最終保存パス = ThisWorkbook.Path & “\Merged_Output_” & Format(Now, “yyyymmdd_hhnnss”) & “.pptx”
プレゼンマスター.SaveAs 最終保存パス
MsgBox “すべてのマージが正常に完了しました。” & vbCrLf & “保存先: ” & 最終保存パス, vbInformation
CleanUp:
‘ — 5. オブジェクトの解放（メモリリーク防止） —
On Error Resume Next
If Not プレゼンマスター Is Nothing Then プレゼンマスター.Close
If Not pptApp Is Nothing Then pptApp.Quit
Set プレゼンマスター = Nothing
Set pptApp = Nothing
Set fso = Nothing
Exit Sub
ErrorHandler:
MsgBox “マージプロセスで致命的なエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“説明: ” & Err.Description, vbCritical
Resume CleanUp
End Sub
—
4. チーフアーキテクトが教える：実装上の極意と罠
上記のコードを現場に導入する際、素人がハマりがちな「3つの地雷」と、その対策を共有しておこう。
地雷①：ファイルロックとCOMのゾンビプロセス
ループ内でファイルを操作する際、ExcelやPowerPointのインスタンスがバックグラウンドに残存（ゾンビ化）すると、ファイルがロックされ、次回の実行時に `Permission Denied` が発生する。
- 対策: 必ず `New PowerPoint.Application` で独立したインスタンスを起こし、処理終了後は明示的に `.Quit` し、変数を `Nothing` でパージすること。エラーハンドラー（`CleanUp:`）を通るフローを絶対に崩してはならない。
地雷②：競合（Conflict）の解決ポリシー
`Merge` メソッドを実行すると、PowerPointは画面上に「変更履歴」作業ウィンドウを表示し、どのスライドを採用するか（マスター側か、インポート側か）の選択を迫る。
これを完全な「完全無人自動化（ヘッドレス）」で行いたい場合、UIの割り込みが発生してスクリプトが停止するように見えることがある。
- 対策: 完全自動化を狙う場合、各担当者に「スライド単位での担当領域（担当スライド番号）」を厳格に割り当てさせ、そもそも同一スライドが競合しない運用ルールを敷くのが最も堅牢である。VBA側でスライド番号の重複を検知して事前に警告を発するバリデーションロジックを前段に組み込むと、プロフェッショナルなツールとして完成度が飛躍的に高まる。
地雷③: パフォーマンスの劣化
スライド数が100枚を超え、高解像度の画像やリンクオブジェクトが多数含まれるファイルを何個もマージすると、PowerPointのCOMコンポーネントはメモリを大量消費し、フリーズする。
- 対策: マージ処理を行う前に、対象プレゼンテーション内の不要な一時ファイルやキャッシュをクリアし、画面描画を停止（`pptApp.ScreenUpdating = False` に相当する機能はないが、ウィンドウを最小化しておく等）することで、処理速度を最適化できる。
—
5. おわりに：自動化の先にあるべき姿
今回紹介した `Presentation.Merge` を活用した自動マージアプローチは、単なる「コピペの手間削減」にとどまらない。
「誰が、どのファイルを、いつ提出し、どう統合されたか」という監査証跡（ログ）をVBA側で記録・制御できるようになることで、企業のドキュメント管理のガバナンスレベルを一段引き上げることが可能になる。
「人が手でやるべきでない作業は、すべてコードに語らせろ」。
この知見をあなたの現場に持ち帰り、退屈な手作業を根絶してほしい。健闘を祈る。
