こんにちは！PowerPointの自動化の世界へようこそ。
チームでプレゼン資料を作っていると、こんな絶望的な状況に直面したことはありませんか？
「A君が作ったスライドと、Bさんが作ったスライドを1つにまとめようとしたら、フォントも色もバラバラ……。コピペするたびにデザインが崩れて、修正だけで半日が終わった」
……エンジニアなら誰もが一度は通る、血涙が出るほど共感できる悲劇です。
今回は、複数メンバーのバラバラなPPTXファイルを、「たった一撃で、指定したデザインテンプレート（マスター）に強制統一しながら美しく結合する」プロフェッショナルなVBAスクリプトを授けましょう。
ここをクリアすれば、PowerPoint VBAの基本構造だけでなく、オブジェクトの「作法」までバッチリ網羅できますよ。さあ、一緒に扉を開けましょう！
—
なぜ、ただの「コピペ結合」ではデザインが崩れるのか？
PowerPointのスライドには、「スライドマスター」というデザインの骨組みが宿っています。
人間が手動でファイルを結合（スライドの挿入）するとき、PowerPointは親切心から「元のデザインを保持しますか？」と聞いてきますが、ここでミスをしたり、異なるマスターを持つスライドを乱雑に混ぜたりすると、レイアウトが盛大に爆発します。
プロの自動化エンジニアである私たちが取るべきアプローチはこれです。
1. ベースとなる「正しいマスターを持つファイル」を起点にする。
2. 結合したい外部ファイルを、バックグラウンドでそっと開く。
3. 外部ファイルの各スライドを、起点となるファイルへ「デザイン（マスター）を強制適用しながら」インポートする。
4. お役御免となった外部ファイルを優しく閉じる。
この一連の流れをVBAで完璧に制御します。
—
現場で即戦力になる！デザイン統一マージ・スクリプト
以下のコードを、マスターデザインが完璧に整った「ベースとなるPowerPointファイル」の標準モジュールに貼り付けて実行してください。
Option Explicit
‘ =================================================================================
‘ 複数PPTXファイルを指定のデザインに統一しながら統合するプロフェッショナル・マクロ
‘ =================================================================================
Sub MergeAndUnifyPresentations()
Dim targetPres As Presentation
Set targetPres = ActivePresentation ‘ 現在開いている（デザインが正しい）ファイルをベースとする
Dim fd As FileDialog
Dim selectedFiles As Variant
Dim i As Long
‘ ファイル選択ダイアログを表示（複数選択可）
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.Title = “統合したいPowerPointファイルをすべて選択してください（複数選択可）”
.Filters.Clear
.Filters.Add “PowerPoint プレゼンテーション”, “.pptx; .ppt”
.AllowMultiSelect = True
If .Show = -1 Then
Set selectedFiles = .SelectedItems
Else
MsgBox “処理がキャンセルされました。”, vbInformation, “終了”
Exit Sub
End If
End With
‘ 画面描画をロックしてパフォーマンスを爆発的に向上させる（お作法その1）
With Application
.ScreenUpdating = False
.DisplayAlerts = ppAlertsNone
End With
On Error GoTo ErrorHandler
Dim sourcePres As Presentation
Dim slideCountBefore As Long
Dim importedPath As Variant
‘ 選択されたファイルを1つずつループ処理
For i = LBound(selectedFiles) To UBound(selectedFiles)
importedPath = selectedFiles(i)
‘ 自分自身を巻き込まないための安全装置
If importedPath <> targetPres.FullName Then
‘ 外部ファイルを非表示（見えない状態）で開く（お作法その2：高速化の極意）
Set sourcePres = Presentations.Open(FileName:=importedPath, _
ReadOnly:=True, _
Untitled:=msoTrue, _
WithWindow:=msoFalse)
slideCountBefore = targetPres.Slides.Count
‘ 【核心】スライドを挿入しつつ、結合先（targetPres）のデザインを強制適用する！
‘ Design := targetPres.Designs(1) を指定するのが、デザイン崩れを防ぐ最大のキモです。
Dim s As Long
For s = 1 To sourcePres.Slides.Count
sourcePres.Slides(s).Copy
‘ ターゲットの末尾に貼り付け、デザインを強制継承
targetPres.Slides.Paste
‘ 貼り付け直後のスライドに対してデザインテンプレートを再適用
Dim pastedSlide As Slide
Set pastedSlide = targetPres.Slides(targetPres.Slides.Count)
pastedSlide.Design = targetPres.Designs(1)
Next s
‘ クリップボードを空にしてメモリを解放
Application.CutCopyMode = False
‘ 外部ファイルを保存せずに閉じる
sourcePres.Close
End If
Next i
‘ 処理終了の通知
MsgBox “すべてのファイルの統合とデザインの統一が完了しました！” & vbCrLf & _
“総スライド数: ” & targetPres.Slides.Count, vbInformation, “成功”
CleanUp:
‘ 画面描画のロックを必ず解除する（忘れるとPowerPointがフリーズしたように見えます）
With Application
.ScreenUpdating = True
.DisplayAlerts = ppAlertsAll
End With
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “エラー”
Resume CleanUp
End Sub
—
コードの核心：なぜこの書き方でデザインが崩れないのか？
初学者のうちは「スライドをコピーしてペーストする」だけで満足しがちですが、それだと先祖代々のマスターデザインが混ざり合ってカオスになります。このスクリプトの技術的なポイントを3つ解説します。
1. `WithWindow:=msoFalse` による爆速バックグラウンド処理
PowerPointは、ファイルを画面に表示（ウィンドウを開く）しながら処理すると、描画コストがかかり猛烈に遅くなります。`WithWindow:=msoFalse` を指定することで、ファイルを目に見えないメモリ上だけで開き、処理速度を何倍にも跳ね上げています。
2. `pastedSlide.Design = targetPres.Designs(1)` による強制統制
ここが今回のハイライトです。コピー＆ペーストした直後のスライドは、まだ元のファイルの血筋（デザイン）を引いている場合があります。そこで、ペースト直後にターゲットファイルの第一デザイン（マスター）を強制的に代入することで、どんなに素性の悪いスライドであっても強制的に社内標準のデザインに矯正します。
3. `ScreenUpdating = False` とエラーハンドリングの鉄則
大量のスライドを操作するVBAでは、画面がバチバチと切り替わるだけでイライラしますし、処理も遅くなります。描画を止めて一気に処理し、万が一エラーが起きても必ず `ScreenUpdating = True` に戻す（CleanUpラベルを通る）構造にすることで、PowerPointが強制終了するリスクを防いでいます。プログラマの優しさは、こうした「後始末の美しさ」に宿るのです。
—
陥りやすいエラーと対処法
1. 「ファイルが読み取り専用で開けない」と言われる
- 原因: 誰かがそのPPTXを開いているか、OneDrive等の同期ファイルでロックされています。
- 対策: 結合対象のファイルはすべて閉じた状態で実行してください。
2. レイアウト（上下左右の位置）が微妙にズレる
- 原因: 元のスライドの「プレースホルダー（文字や図形を入れる枠）」のサイズが、新しいマスターと極端に違う場合、完全に防ぎきれないことがあります。
- 対策: あくまでベースのマスターデザイン（色、フォント、背景）を統一するためのスクリプトです。極端に特殊なカスタムレイアウトを使っているスライドは、事前に標準レイアウトに戻しておくのがプロの現場の知恵です。
—
まとめ：自動化で「本質的な仕事」に集中しよう
いかがでしたか？
スライドの結合という、人間がやるとイライラしてミスが多発する単調作業も、VBAのオブジェクトモデルを正しく理解すれば、一瞬で、しかも美しく完了させることができます。
ここをクリアしたあなたなら、もう「マクロの記録」だけの初心者ではありません。立派なPowerPoint自動化のエンジニアです。
ぜひ、日々の業務にこのスクリプトを取り入れて、デザイン修正の残業から解放されてくださいね。それでは、次のスマートな自動化の世界でお会いしましょう！
