こんにちは！PowerPointの自動化の世界へようこそ。
マクロの記録ボタンを押して「動いたけれど、中身は何だかよくわからない……」という時期を通り越し、「もっとスマートに、もっとダイナミックにPowerPointを操りたい！」と感じているあなたへ。
今回は、PowerPoint VBAの真骨頂とも言える「セクション操作」をテーマに、実務で間違いなく重宝するテクニックを伝授します。
私たちが扱うプレゼン資料は、ページ数が増えるにつれてカオスになりがちです。「財務セクションだけを切り出して別のファイルにまとめたい」「営業の最新スライドをごっそり別資料に合体させたい」――そんな面倒な手作業、もう人間がやる必要はありません。
今回は `Presentation.SectionProperties` という強力な武器を駆使し、「セクション構造を維持したまま、特定のセクションをごっそり別プレゼンへ動的に再配置するマージ術」を徹底解説します。ここをクリアすれば、あなたのPowerPoint VBAスキルは確実に中級者から「エンジニアの領域」へとステップアップしますよ。気負わず、一緒に紐解いていきましょう！
—
1. PowerPoint VBAの心臓部：オブジェクトモデルを理解する
まず、PowerPoint VBAの全体像を軽く整理しておきましょう。
PowerPointのオブジェクト（操作対象のモノ）は、綺麗に階層構造（ツリー構造）になっています。
- `Application`（PowerPointアプリそのもの）
- `Presentations`（開いているプレゼンテーションの集合）
- `Presentation`（個別のファイル）
- `Slides`（スライドの集合）
- `SectionProperties`（★今回主役となるセクションの管理機能）
Excel VBAに慣れている人だと「行と列」の概念を探してしまいますが、PowerPointの本質は「カード（スライド）の束と、その束を束ねるインデックス（セクション）」です。
このセクション構造をVBAから自由自在に操るための専用インターフェースが、PowerPoint 2010以降に搭載された `SectionProperties` です。これを使うと、「何番目のセクションの名前は何か」「そのセクションには何枚のスライドがあるのか」を完全に把握できるようになります。
—
2. 【核心】セクション横断マージの全体像と設計思想
今回のミッションは、「元となるプレゼン（Source）」から「特定の名前を持つセクション（例：『財務』）」を探し出し、そのセクションに含まれるスライドをごっそり「宛先のプレゼン（Destination）」の末尾に、セクションごと移設（またはコピー）することです。
ここで一つ、プログラミングの現場で絶対に知っておくべき「残酷な事実（仕様の罠）」をお伝えします。
> 【重要】セクションのコピーに関する注意点
> PowerPointの標準機能およびVBAの仕様上、「セクションという箱」をそのまま別ファイルへ一発でコピーするメソッドは存在しません。
> ですから、手順としては以下のステップを踏む必要があります。
> 1. コピー元から対象セクションのスライド群を特定する
> 2. スライドを目的のプレゼンへコピーする
> 3. コピー先のプレゼン側で、新しくセクションを作り直してスライドをそこに収める
「なんだ、結局手動と変わらないのでは？」と思いましたか？
いいえ、これをVBAが一瞬でやってくれるからこそ価値があるのです。
—
3. 実装コード：セクション抽出＆マージマクロ
それでは、実際に開発現場でそのままコピペして使える実用コードを公開します。
今回は、「現在アクティブなプレゼンから『財務』というセクションを探し、新しく開いた別プレゼンにそっくりそのまま移植する」というシナリオで書いています。
Sub MergeSectionBySpecificName()
Dim srcPres As Presentation
Dim destPres As Presentation
Dim targetSecName As String
Dim secCount As Long
Dim i As Long, s As Long
Dim foundSecIndex As Long
Dim targetSlideIndex As Long
Dim slideCountInSec As Long
Dim newSecIndex As Long
‘ —————————————————-
‘ 1. 前準備と変数の定義
‘ —————————————————-
Set srcPres = ActivePresentation ‘ 操作元のプレゼン
targetSecName = “財務” ‘ 抽出したいセクション名
‘ 抽出先のプレゼンを新規作成（必要に応じて既存ファイルをOpenしてもOKです）
Set destPres = Presentations.Add
‘ セクションが存在しない場合のエラーを防ぐため、インデックスを初期化
foundSecIndex = 0
‘ —————————————————-
‘ 2. コピー元から指定セクションを探索する
‘ —————————————————-
With srcPres.SectionProperties
secCount = .Count
For i = 1 To secCount
If .Name(i) = targetSecName Then
foundSecIndex = i
Exit For
End If
Next i
End With
‘ セクションが見つからなかった場合のガード処理
If foundSecIndex = 0 Then
MsgBox “指定されたセクション「 ” & targetSecName & ” 」が見つかりませんでした。”, vbExclamation, “処理中断”
Exit Sub
End If
‘ —————————————————-
‘ 3. 対象セクション内のスライドを特定し、別プレゼンへコピー
‘ —————————————————-
With srcPres.SectionProperties
‘ 指定セクションの最初スライド番号を取得
targetSlideIndex = .FirstSlideIndex(foundSecIndex)
‘ 指定セクションに含まれるスライド枚数を取得
slideCountInSec = .SlidesCount(foundSecIndex)
End With
‘ 該当するスライドを1枚ずつループして宛先へコピー
For s = 0 to (slideCountInSec – 1)
Dim currentSlideNo As Long
currentSlideNo = targetSlideIndex + s
‘ スライドをコピー元からコピー先の末尾に挿入
srcPres.Slides(currentSlideNo).Copy
destPres.Slides.Paste destPres.Slides.Count + 1
Next s
‘ —————————————————-
‘ 4. 宛先プレゼン側で新しいセクションを作成し、スライドを格納
‘ —————————————————-
‘ 宛先側の末尾に、元のセクション名で新セクションを作成
‘ ※新しく貼られたスライド群の先頭インデックスを指定する
Dim pastedFirstIndex As Long
pastedFirstIndex = destPres.Slides.Count – slideCountInSec + 1
With destPres.SectionProperties
‘ AddBeforeSlideメソッドを使ってセクションを追加し、名前を変更
newSecIndex = .AddBeforeSlide(pastedFirstIndex, targetSecName)
End With
‘ 完了メッセージ
MsgBox “セクション「 ” & targetSecName & ” 」の抽出とマージが完了しました！”, vbInformation, “処理成功”
End Sub
—
4. コードの解説と「知っておくべき極意」
このコードのポイントを、シニアエンジニアの視点からいくつか解説しておきます。ここを理解しておくと、応用が効くようになりますよ。
① `SectionProperties` の主要メソッドを使いこなす
コード内でも使用している以下の3つは、セクション操作の「三種の神器」です。絶対に覚えておいてください。
- `.Count`：プレゼン全体のセクション総数
- `.Name(index)`：指定したセクション番号の「名前」を取得・変更する
- `.FirstSlideIndex(index)`：そのセクションが「何枚目のスライドから始まっているか」を返す（これがめちゃくちゃ便利！）
- `.SlidesCount(index)`：そのセクションにスライドが何枚含まれているかを返す
これらを組み合わせることで、「どこからどこまでをコピーすればいいか」という範囲計算が完璧にできるようになります。
② クリップボード経由のコピー（`.Copy` と `.Paste`）の注意点
VBAでのスライド複製には、`Slide.Duplicate` や `SlideRange.Copy` など複数のアプローチがありますが、別プレゼン間（ファイル間）をまたぐ場合は、Windowsのクリップボードを経由する `.Copy` -> `.Paste` が最も堅牢です。
ただし、VBAの実行中に裏で画面がパチパチと切り替わるのが気になる場合は、処理の最初に `Application.ScreenUpdating = False` を入れたくなりますよね？
実はPowerPoint VBAにはExcelのような `ScreenUpdating` プロパティが存在しません。 そのため、画面のチラつきを完全に消すことはできませんが、実用上は一瞬で終わるため問題ありません。
—
5. 陥りがちなエラーと回避のテクニック
現場でこのコードをテストしていると、いくつかの「罠」にハマることがあります。よくあるエラーと対策をまとめておきます。
1. セクション名が一致しない（スペースや全角半角の罠）
- 現象：「財務」と指定したのに見つからないエラーになる。
- 対策：PowerPointのセクション名に意図せずスペースが含まれていないか確認してください。また、コード側で `Trim(.Name(i)) = Trim(targetSecName)` のように前後の空白を無視する工夫を入れると頑健性が上がります。
2. スライドが1枚もない「空のセクション」の存在
- 現象：スライド数が0のセクションを指定すると、インデックスの計算が狂ってエラーになる。
- 対策：`If slideCountInSec = 0 Then …` で弾く条件分岐を挟むと完璧です。
—
まとめ：ここをクリアすれば、PowerPoint VBAの基本はバッチリですよ！
お疲れ様でした！今回は `Presentation.SectionProperties` を使った、セクション単位の高度なスライドマージ術について解説しました。
一見すると難しそうに見えるセクション操作も、
- 「セクションがどこから始まって何枚あるかを調べる」
- 「該当スライドをループでコピーする」
- 「コピー先でセクションを再構築する」
というロジックの分解さえできてしまえば、怖くありません。
このスキルが身につけば、毎月の定例会議資料のコピペ地獄や、膨大な提案書からのパーツ切り出し作業を、ボタン一つで秒速で終わらせる最強の自動化ツールが作れるようになります。
ぜひご自身の環境でコードを動かして、その爽快感を味わってみてください。
あなたのVBAライフが、より一層充実したものになることを応援しています！
