こんにちは！PowerPoint VBAの世界へようこそ。
マクロの記録ボタンを押して「動いたはいいけれど、中身がごちゃごちゃして直せない……」そんな壁にぶつかっていませんか？
大丈夫。ここをクリアすれば、あなたも立派な自動化エンジニアの第一歩を踏み出せます。今日は、PowerPoint VBAの最も基本であり、かつ実務で絶対に避けて通れない「スライドの初期化」の本質についてお話ししますね。
—
なぜ、「新規作成」でつまずくのか？
PowerPointで新しいプレゼンテーションを作る時、VBAではお馴染みのこのコードを書きますよね。
Dim prs As Presentation
Set prs = Presentations.Add
一見、これで新しいファイルが作られて万歳！…と言いたいところですが、実務の現場ではこれだと大きな爆弾を抱えることになります。
何が起きるかと言うと、PowerPointのデフォルト設定（あるいは組織のテンプレート）によっては、勝手に「タイトルスライド」が挿入され、真ん中にデカデカと「タイトルを入力」「サブタイトルを入力」という不要なテキストボックス（プレースホルダー）が配置されてしまうのです。
「よし、ここに図形を綺麗に配置するぞ！」と意気込んでコードを書いたのに、謎の初期プレースホルダーがレイアウトを邪魔してエラーが出たり、見た目が崩れたり……。あなたもそんな経験、ありませんか？
プロの現場では、「自動化のキャンバスは、完全にコントロールされたまっさらな状態（完全な白紙）から始める」のが鉄則です。
—
解決策：完全にクリーンな「白紙」を生成するコード設計
余計なノイズを一切含まない、完全にクリーンなプレゼンテーションを動的生成するための実用コードがこちらです。
Option Explicit
Sub CreateCleanPresentation()
Dim targetPrs As Presentation
Dim targetSlide As Slide
‘ 1. 新規プレゼンテーションを作成
Set targetPrs = Presentations.Add(msoTriStateTrue)
‘ 2. デフォルトで作成された不要なスライドを完全削除
‘ ※PowerPointは新規作成時に必ず1枚スライドを持つ仕様のため、それを消す
If targetPrs.Slides.Count > 0 Then
targetPrs.Slides(1).Delete
End If
‘ 3. 「完全な白紙（レイアウト無し）」の新しいスライドを追加する
‘ ppLayoutBlank (インデックス 12) を指定するのがプロの技
Set targetSlide = targetPrs.Slides.Add(1, ppLayoutBlank)
‘ 4. 完了メッセージ
MsgBox “余計なプレースホルダーのない、完全な白紙スライドの生成に成功しました！”, vbInformation
End Sub
—
コードの核心を噛み砕く！3つのポイント
先輩エンジニアとして、このコードの重要なポイントを3つだけ解説させてください。ここが理解できれば、PowerPointオブジェクトモデルの基礎はバッチリです。
1. `Presentations.Add` の引数が持つ意味
コード内の `msoTriStateTrue` は、「ウィンドウを表示して新規作成する」という指定です。裏でこっそり処理したい場合は `msoTriStateFalse` にすることもありますが、まずは目で見えた方が安心なので `True` で進めましょう。
2. 「作ってから消す」というアプローチの美学
PowerPointのアプリケーション仕様上、新規作成直後は必ず「1枚目のスライド」が存在してしまいます。
「最初からスライド0枚のファイルを作る」ことはできないため、「生まれた瞬間のスライドを即座に葬り（Delete）、自分の手でレイアウトを指定したスライドを生み出す」というのが、実務で使える堅牢なロジックになります。
3. `ppLayoutBlank`（レイアウト：白紙）の指定
ここが一番大切です。スライドを追加する際、`targetPrs.Slides.Add(インデックス, レイアウト)` という書き方をします。
ここで `ppLayoutBlank`（定数値：12）を指定することで、タイトルも本文もない、完全に自由なキャンバスを手に入れることができます。
—
初学者がハマりやすい「落とし穴」
ここで、よくあるエラーについても触れておきますね。
> Q. 「変数が見つかりません」というエラー（コンパイルエラー）が出て動かないのですが？
A. `Option Explicit` を書いていますか？
上記のコードの1行目に `Option Explicit`（変数の明示的な宣言を強制する）を入れてあります。初学者のうちは「面倒だな」と感じるかもしれませんが、スペルミスによるバグを防ぐためのエンジニアの必須マナーです。必ずモジュールの最上部に記述するようにクセ付けましょう。
また、もし `ppLayoutBlank` という定数が認識されない場合は、VBE（VBAエディタ）の「ツール」＞「参照設定」から “Microsoft PowerPoint XX.X Object Library” にチェックが入っているか確認してくださいね。
—
まとめ：ここからあなたの自動化が始まる
今回は、`Presentations.Add` メソッドの癖を調教し、完全にクリーンな「白紙プレゼンテーション」を動的生成する方法を解説しました。
- 新規作成時は意図しないスライドが混ざることを知る
- 不要なものは容赦なく削除し、コントロールを取り戻す
- `ppLayoutBlank` で完全なキャンバスを用意する
この「土台作りの美学」をマスターしておけば、この後どんなに複雑な図形描画や表の挿入、グラフの自動生成を行っても、レイアウト崩れに悩まされることはなくなります。
基礎を固めたあなたなら、もうマクロの記録の奴隷ではありません。
さあ、このコードをベースに、あなたの業務を劇的に効率化するスライド自動化ツールを作り上げていきましょう！
