こんにちは！PowerPointの自動化の世界へようこそ。
日々、社内のプレゼン資料のフォーマットやフォント、色のバラつきに頭を悩ませていませんか？
「せっかく美しいブランドガイドラインがあるのに、メンバーが新しく図形やテキストボックスを作ると、なぜかデフォルトの青い四角やダサいフォントに戻ってしまう……」
そんな現場の絶望を、一撃で解決する魔法のオブジェクトがあります。それが今回解説する `Presentation.DefaultShape` です。
ここをクリアすれば、あなたも単なる「マクロの記録の使い手」から、全社のドキュメント品質を裏で支配する「チーフアーキテクト」へ一歩を踏み出すことができます。
それでは、優しく、そして本質的なPowerPoint VBAの世界へご案内しましょう！
—
1. なぜ「DefaultShape」を知る必要があるのか？
PowerPointで新しい図形（Shape）をスライド上に描画した瞬間、その図形はどこからともなく「初期デザイン」を引き継いで現れます。あの青い塗りつぶし、青い枠線、そして游ゴシックの黒い文字……。
もし、これがあなたの会社のブランドカラー（例えば、深いネイビーの塗りつぶし、ゴールドの枠線、メイリオのフォント）だったらどうでしょう？ ユーザーがスライドを作るたびに一々色やフォントを変更するのは、エンジニアにとっても非効率極まりない苦行です。
ここで多くの人が「図形を作った後にマクロで色を塗り替える」というアプローチを取りがちです。しかし、それはプロのやり方ではありません。
「新しく生まれてくる図形そのもののDNA（規定値）を、VBAで最初に書き換えておく」。これが `DefaultShape` を使った極限の自動化アプローチです。
—
2. PowerPointオブジェクトモデルの階層構造を理解する
コードを書く前に、PowerPointの頭の中（オブジェクトモデル）を少しだけ覗いてみましょう。VBAを操る上で、この階層構造の理解は羅針盤になります。
Application (PowerPointアプリ全体)
└── Presentations (開いているプレゼンテーションたち)
└── Presentation (いま操作している特定のファイル)
├── Slides (スライドの集合)
└── DefaultShape (★今回の主役：このファイルにおける図形の既定値)
`DefaultShape` は、特定の「スライド（Slide）」に属しているのではなく、「プレゼンテーション（Presentation）」の直下にぶら下がっています。つまり、このファイル内で新規作成されるすべての図形の「親の遺伝子」を、ここで一括して書き換えることができるのです。
—
3. 実装コード：ブランドガイドラインを強制適用する
それでは、実際に動かせる実用的なコードを見ていきましょう。
以下のコードは、現在アクティブなプレゼンテーションの「既定の図形」のスタイルを、社内ブランド仕様（例：ダークネイビーの背景、アクセントゴールドの枠線、白抜き文字）に書き換えるマクロです。
Sub ApplyBrandDefaultShape()
‘ 変数の宣言
Dim targetPres As Presentation
Dim defShape As Shape
‘ エラー対策：現在開いているプレゼンテーションがあるか確認
If Application.Presentations.Count = 0 Then
MsgBox “プレゼンテーションが開かれていません。”, vbCritical, “エラー”
Exit Sub
End If
‘ アクティブなプレゼンテーションを取得
Set targetPres = ActivePresentation
‘ 【核心】DefaultShapeオブジェクトを取得する
‘ ここに対する操作が、このファイル全体の「新規図形の既定値」になります
Set defShape = targetPres.DefaultShape
‘ — 1. 塗りつぶし（Fill）の設定 —
With defShape.Fill
.Visible = msoTrue
‘ ブランドカラー：ディープネイビー（RGB: 20, 35, 60）を設定
.ForeColor.RGB = RGB(20, 35, 60)
End With
‘ — 2. 枠線（Line）の設定 —
With defShape.Line
.Visible = msoTrue
‘ ブランドカラー：アクセントゴールド（RGB: 212, 175, 55）を設定
.ForeColor.RGB = RGB(212, 175, 55)
.Weight = 1.5 ‘ 線の太さを1.5ポイントに
End With
‘ — 3. テキスト・フォント（TextFrame2 / Font）の設定 —
‘ ※図形の中に文字を入力したときの既定フォントを制御します
With defShape.TextFrame2.TextRange.Font
.NameComplexScript = “Meirio”
.NameFarEast = “メイリオ”
.NameAscii = “メイリオ”
‘ 文字色：白
.Fill.ForeColor.RGB = RGB(255, 255, 255)
End With
‘ 完了メッセージ
MsgBox “ブランドの既定図形スタイルが正常に適用されました！” & vbCrLf & _
“新しく図形やテキストボックスを作成して確認してください。”, vbInformation, “成功”
End Sub
コードのポイント解説
- `targetPres.DefaultShape`: これが今回の最大のキモです。これ以降の `With defShape` 内で行った装飾の変更は、すべて「これから作られる図形」のデフォルト値として記憶されます。
- `TextFrame2` の活用: 古い `TextFrame` ではなく、現代のPowerPointオブジェクトモデルである `TextFrame2` を使うことで、マルチリンガル（日本語・英字）のフォント設定を確実に制御できます。
—
4. 現場でやりがち！陥りやすい罠とエラー回避の知恵
PowerPoint VBAを書き始めると、誰もが一度は次のような壁にぶつかります。エンジニアの先輩として、先回りして回避策をお伝えしておきます。
罠1：「あれ？ 既存の図形が変わらないんだけど……」
- 原因と真実: `DefaultShape` は、あくまで「これから新しく作成される図形」のテンプレートです。すでにスライド上に存在する図形の色が一斉に変わるわけではありません。
- 対策: 既存の図形を一括変換したい場合は、別途 `For Each shp In slide.Shapes` のようなループ処理を組む必要があります。使い分けを意識しましょう。
罠2: セキュリティ警告でマクロが動かない
- 原因と真実: 組織のセキュリティポリシーにより、VBAマクロが無効化されている、あるいは信頼できる場所（Trusted Location）にファイルが置かれていない場合、コードが実行すらされません。
- 対策: コードを記述する際は、ファイルを必ず `.pptm`（PowerPointマクロ有効プレゼンテーション）形式で保存し、開発タブからマクロのセキュリティ設定を確認してください。
—
5. おわりに：ここをクリアすれば、あなたはもう初心者ではない
お疲れ様でした！ `Presentation.DefaultShape` を使った動的なデザイン制御の仕組み、イメージできましたでしょうか？
「マクロの記録」ボタンを押して作業をトレースするだけだった状態から、「アプリケーションのオブジェクトモデルを直接叩いて、環境そのものを支配する」というエンジニア的アプローチに足を踏み入れました。
このテクニックを会社のマスターテンプレート（`.potx` や `.pptm`）の初期化ルーチンに組み込んでおけば、社内の誰もが意識することなく、美しく統一されたブランド資料を爆速で作成できるようになります。
ここをクリアできれば、PowerPoint VBAの基本はもうバッチリです！
ぜひ自分の手でコードを打ち込み、新しく生成される図形が黄金の枠線まとって現れる快感を味わってみてください。それでは、次の自動化の旅でお会いしましょう！
