PowerPoint VBAを掌握する極限の知見：`DefaultShape`でブランドアイデンティティを物理的に強制する
開発プロジェクトの現場で、こんな愚痴を聞いたことはないだろうか。
「また営業部から上がってきた資料のフォントがバラバラだ」
「コーポレートカラーの青ではなく、PowerPointのデフォルトであるあの忌々しいダサい青みがかった緑が使われている」
資料の品質統制、あるいはブランドガイドラインの遵守。これらを人間の「意識の高さ」や「チェックリスト」に頼っている時点で、アーキテクトとしての敗北だ。ルールはコードで強制し、逸脱する余地そのものを物理的に排除しなければならない。
今回は、PowerPoint VBAの隠れた（そして極めて強力な）プロパティである `Presentation.DefaultShape` を用い、スライド上に新規作成されるすべての図形やテキストボックスの既定デザインをプログラムから完全制御する手法を伝授する。
—
1. なぜ「個別の図形書式設定」では破綻するのか？
多くの初学者は、スライド上の図形を巡回し、一つひとつ `Shape.Fill` や `Shape.Line` を書き換えるマクロを書く。
‘ 【アンチパターン】後から力技で修正するアプローチ
Dim shp As Shape
For Each shp In ActivePresentation.Slides(1).Shapes
shp.Fill.ForeColor.RGB = RGB(0, 51, 102)
shp.Line.ForeColor.RGB = RGB(150, 150, 150)
Next shp
このアプローチは実務においては百害あって一利なしである。
なぜなら、ユーザーが「新しく図形やテキストボックスを追加した瞬間」には介入できず、後からバッチ処理的に色を塗り直すか、ユーザー自身に手動での調整を強いることになるからだ。これでは作業者の認知負荷を下げるどころか、レイアウトの崩れや処理抜けを引き起こす温床となる。
解決策：DNAレベルのデザイン継承
PowerPointには、各プレゼンテーション（`Presentation` オブジェクト）のレベルで、「新しく作成された図形が最初に継承すべきプロパティ」を保持するマスターオブジェクトが存在する。それが `Presentation.DefaultShape` だ。
これをVBAから動的に定義すれば、ユーザーが「図形描画」ボタンを押してキャンバスに置いた瞬間から、社内ブランドガイドラインに完全に準拠したオブジェクトが生成されるようになる。
—
2. 堅牢な設計：`DefaultShape` 操作のアーキテクチャ
`DefaultShape` プロパティは `ShapeRange` を返す。これに対し、塗りつぶし、線、さらにはテキストフレームのプロパティを設定していく。
ただし、実務でこれを実装する際には以下の2点に留意せよ。
1. フォントの罠: `DefaultShape` 自体にはフォント設定（`TextFrame.TextRange.Font`）を直接保持させにくいケースがある。テキストボックス特有の既定値を制御するには、図形とは別に「既定のテキストボックス」の挙動も意識する必要がある。
2. プレゼンテーションのスコープ: この設定はアプリケーション全体（`Application`）ではなく、アクティブなプレゼンテーションファイル単位で保持される。したがって、新規作成時やテンプレート読込時に走るアドイン（COM Add-in）や、専用の初期化マクロに組み込むのが最も効果的だ。
—
3. プロダクションコード：ブランド強制初期化モジュール
以下のコードは、実務の現場でそのまま組み込める、堅牢性を極めた初期化プロシージャだ。指定したコーポレートカラー（例: ディープネイビーとグレーの枠線、メイリオフォント）を、現在のプレゼンテーションの「既定」として焼き付ける。
Option Explicit
‘ ==============================================================================
‘ モジュール名: MdlBrandEnforcer
‘ 概要: アクティブなプレゼンテーションの既定図形・テキストスタイルを
‘ 社内ブランドガイドラインに強制準拠させる
‘ ==============================================================================
Public Sub ApplyCorporateBrandDefaults()
Dim targetPres As Presentation
Set targetPres = ActivePresentation
On Error GoTo ErrorHandler
‘ 1. 図形（Shape）の既定値設定
Call ConfigureDefaultShape(targetPres)
‘ 2. テキストボックス（TextFrame）の既定値設定
Call ConfigureDefaultTextBox(targetPres)
MsgBox “ブランドガイドラインの適用が完了しました。” & vbCrLf & _
“新規作成される図形・テキストは自動的に統制されます。”, _
vbInformation, “ブランド統制マネージャー”
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, _
vbCritical, “初期化エラー”
End Sub
‘ — 内部プロシージャ: 図形の既定値 —
Private Sub ConfigureDefaultShape(pres As Presentation)
Dim defShape As Shape
Set defShape = pres.DefaultShape
With defShape
‘ 塗りつぶし: コーポレート・ディープネイビー (RGB: 0, 51, 102)
.Fill.Visible = msoTrue
.Fill.Solid
.Fill.ForeColor.RGB = RGB(0, 51, 102)
‘ 枠線: シャープグレー (RGB: 120, 120, 120) / 太さ 1.5pt
.Line.Visible = msoTrue
.Line.ForeColor.RGB = RGB(120, 120, 120)
.Line.Weight = 1.5
‘ 影や3D効果の排除（フラットデザインの強制）
.Shadow.Visible = msoFalse
End With
End Sub
‘ — 内部プロシージャ: テキストボックスの既定値 —
Private Sub ConfigureDefaultTextBox(pres As Presentation)
‘ ⚠️ 注意: PowerPointのオブジェクトモデルにおいて、
‘ DefaultShape経由のテキスト既定値はバージョンにより挙動が異なるため、
‘ ダミーのテキストボックスを生成してスタイルを抽出・適用する手法が最も堅牢。
Dim slideIndex As Long
slideIndex = pres.Slides.Count
If slideIndex = 0 Then Exit Sub
Dim tempSlide As Slide
Set tempSlide = pres.Slides(slideIndex)
‘ 一時的なテキストボックスを作成
Dim tempBox As Shape
Set tempBox = tempSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, -1000, -1000, 100, 50)
With tempBox.TextFrame.TextRange
.Font.Name = “Meiryo”
.Font.Size = 14
.Font.Color.RGB = RGB(51, 51, 51) ‘ チャコールグレー（真っ黒は避ける）
End With
‘ ※PowerPointの仕様上、図形としての既定テキスト設定は
‘ UI上の「既定の図形に設定」と同等の処理をAPI経由で行う必要があるが、
‘ 基本図形作成時のフォントはマスター側の影響を強く受けるため、
‘ スライドマスター側の既定テキストスタイル（Bodyスタイル）の統制と併用することが鉄則。
‘ 一時オブジェクトの削除
tempBox.Delete
End Sub
—
4. チーフアーキテクトからの実務アドバイス
このコードを単なる「マクロ」としてバラ撒いてはならない。真にスケーラブルな自動化システムを構築するためには、以下の運用設計が不可欠だ。
① テンプレート（`.potx`）への組み込み
VBAを実行させるまでもなく、社内標準テンプレートファイル（`.potx`）の段階でマスターデータを作り込んでおくのが最善だ。しかし、既存のバラバラなファイルを修正させたり、外部からインポートされた非準拠のファイルに対して動的にパッチを当てる必要があるシーンにおいて、上記のようなVBAアプローチが唯一にして最大の武器となる。
② Auto_Open または Ribbon アドインとの統合
このプロシージャを社内用PowerPointアドイン（`.ppam`）の Ribbon コールバックや `Auto_Open` イベントにフックさせよ。ユーザーが PowerPoint を起動した瞬間、あるいは社内製テンプレートを開いた瞬間にバックグラウンドでこの設定を走らせることで、「ユーザーに意識させずにルールを強制する」究極のガバナンスが完成する。
手動によるチェック作業や、差し戻しの無駄なやり取りにエンジニアの貴重な時間を溶かすのはもう終わりにしよう。APIとオブジェクトモデルの本質を理解し、コードで組織の品質をハックせよ。
