【PowerPoint VBA】スライド追加の罠を突破せよ！`Add`と`AddSlide`の決定的な違いと互換性の極意
こんにちは。自動化の世界へようこそ。
マクロの記録ボタンを押してコードを眺めるだけの段階を卒業しようとしているあなたへ、今日は「スライドを1枚追加する」という、最も基本的でありながら最も奥が深い「儀式」についてお話しします。
PowerPoint VBAにおいて、スライドを追加する方法は二つあります。`Slides.Add` と `Slides.AddSlide`。
「動けばどっちでもいいのでは？」と思ったあなた。その認識が、将来的に「特定のPCでだけ動かない」「レイアウトが崩れる」という悪夢を招く引き金になります。
今日は、この二つの違いを完璧に理解し、どんな環境でも揺るがない「最強の追加コード」をあなたの武器にしましょう。
—
1. そもそもなぜ2種類あるのか？
結論から言えば、`Add` は「古い時代の遺産」であり、`AddSlide` は「現代の標準」です。
Slides.Add（レガシーな手法）
- 特徴: インデックス番号とレイアウトの種類（定数）で指定します。
- 問題点: PowerPoint 2007以降で導入された「カスタムレイアウト」という概念に対応しきれません。指定できるレイアウトが限定的で、現代の柔軟なデザイン変更に対応できないのです。
Slides.AddSlide（モダンな手法）
- 特徴: インデックス番号と「レイアウトオブジェクト（CustomLayout）」そのものを渡します。
- 利点: デザイナーが作成した複雑なレイアウトも正確に再現できます。現在はこちらを使うのが正解です。
—
2. 現場で「死なない」ための互換性コード
初心者が陥りやすいのが、「自分のPCでは動いたのに、他人のPCでエラーになる」という現象です。これは「レイアウトの指定方法」が環境によって曖昧だからです。
以下のコードは、「指定したレイアウトが見つからなくても死なない（デフォルトで追加する）」という安全装置を組み込んだ、現場仕様のテンプレートです。
Sub SafeAddSlide()
Dim pptApp As Application
Dim pptPres As Presentation
Dim targetSlide As Slide
Dim layoutType As CustomLayout
Set pptApp = Application
Set pptPres = pptApp.ActivePresentation
‘ 1. レイアウトを特定する（ここでは「タイトルとコンテンツ」を指定）
‘ ※インデックス番号指定は環境依存で危険なため、名前で指定するのがプロの流儀
On Error Resume Next ‘ 万が一レイアウト名が存在しない場合に備える
Set layoutType = pptPres.SlideMaster.CustomLayouts(ppLayoutText)
On Error GoTo 0
‘ 2. レイアウトが取得できなかった場合のフォールバック（保険）
If layoutType Is Nothing Then
Set layoutType = pptPres.SlideMaster.CustomLayouts(1)
End If
‘ 3. AddSlideで安全にスライドを追加
‘ 最後の引数にレイアウトオブジェクトを渡すのがポイント
Set targetSlide = pptPres.Slides.AddSlide(pptPres.Slides.Count + 1, layoutType)
MsgBox “スライドが安全に追加されました！”
End Sub
—
3. なぜこの書き方が「極限」なのか？
このコードには、初心者が陥る「3つの落とし穴」を回避する工夫が隠されています。
1. `On Error Resume Next` の正しい使い方:
「特定の名前のレイアウトがない」という事態は、配布資料の構成変更でよく起こります。ここでスクリプトを止めず、`layoutType` が空かどうかを判定してフォールバック（代わりの処理）を用意することで、プログラムの生存率が劇的に向上します。
2. `SlideMaster` への依存:
`CustomLayouts` を `SlideMaster` から取得することで、現在そのプレゼンテーションが使用している「生きた設計図」に直接アクセスしています。これにより、テーマやテンプレートが変わっても追従可能です。
3. 明示的な変数宣言:
`targetSlide` として生成物をオブジェクト変数で受けることで、追加した瞬間にそのスライドに対してタイトルを入れたり、図形を配置したりといった「次の操作」へスムーズに繋げられます。
—
先輩からのアドバイス
PowerPoint VBAを掌握するコツは、「PowerPointの視点で考えること」です。
人間は「何番目のスライド」と数えますが、PowerPointのエンジンは「どのマスターレイアウトに基づいて生成するか」を常に見ています。
`AddSlide` を使いこなし、レイアウトオブジェクトを操作できるようになれば、あなたはもう初心者ではありません。次は、スライド内のテキストボックスを動的に特定し、値を流し込む処理に挑戦してみてください。
ここをクリアしたあなたなら、必ず素晴らしい自動化エンジニアになれるはずです。またいつでも聞きに来てくださいね。応援しています。
