こんにちは！パワポ職人の皆さん、日々の資料作りお疲れ様です。
複数人で1つのプレゼンテーションを作り上げるとき、こんな「あるある」に悩まされたことはありませんか？
- 「自分以外の誰かがスライドの背景をいじったせいで、1枚だけグラデーションの角度が違う……」
- 「テーマカラーを統一したはずなのに、なぜかこのページだけ背景の質感が浮いている……」
目視で何十枚ものスライドをチェックするのは、まさに苦行です。人間、疲れてくると絶対に見落とします。
しかし、ご安心ください。私たちにはPowerPoint VBA（マクロ）という最強の武器があります。
今回は、スライドの背景（Background）オブジェクトの奥底に眠るプロパティを丸裸にし、「デザインの揺らぎ」を自動で検知して警告してくれるプロ仕様の校正ツールの作り方を解説します。
ここをクリアすれば、あなたも単なるマクロの記録者から、ワンランク上の「自動化エンジニア」へ脱皮できます。一緒に本質を学んでいきましょう！
—
1. PowerPoint VBAのオブジェクト階層をマスターする
まず、PowerPoint VBAの基本地図を確認しておきましょう。
PowerPointのオブジェクトは、以下のような「マトリョーシカ構造（親子関係）」になっています。
Application (PowerPoint全体)
┗ Presentations (開いているファイルたち)
┗ Presentation (アクティブなファイル)
┗ Slides (スライドたち)
┗ Slide (1枚1枚のスライド)
┗ Background (背景デザイン)
┗ Fill (塗りつぶし設定)
今回の主役は、一番奥にある `Slide.Background.Fill` です。
ここには、単色だけでなく、グラデーションやテクスチャ（画像）の細かい設定値（角度、種類、透過度など）がすべて詰まっています。この中身をVBAで読み解いていくわけです。
—
2. なぜ「背景の不整合」は見落とされやすいのか？
PowerPointのスライド背景には、2つの設定方法があります。
1. スライドマスターで一括管理されている背景
2. 個別のスライドで「背景の書式設定」から上書きされた背景
共同編集の恐怖は、後者にあります。誰かが良かれと思って個別に背景をいじった瞬間、マスターの呪縛が解け、そのスライドだけ「孤立したデザイン」になってしまうのです。
VBAを使えば、全スライドの背景設定（塗りつぶしの種類、グラデーションの方向、色など）をプログラムで強制的に抽出し、「基準となるスライド」と比較して異なるものを一発で炙り出すことができます。
—
3. 【実践】背景デザイン校正ツールコード
それでは、開発の現場でそのままコピペして使える実用コードを公開します。
このマクロは、「1枚目のスライドの背景設定を『正解（基準）』とし、2枚目以降のスライドで設定が異なっていれば、イミディエイトウィンドウに警告を出す」というものです。
VBE（Visual Basic Editor）を開き、標準モジュールに以下のコードを貼り付けてください。
Option Explicit
‘ =====================================================================
‘ 処理名: プレゼンテーション背景デザイン校正ツール
‘ 概要 : 1枚目のスライド背景を基準とし、2枚目以降の「背景の揺らぎ」を検出する
‘ =====================================================================
Public Sub AuditSlideBackgrounds()
Dim targetPres As Presentation
Set targetPres = ActivePresentation
If targetPres.Slides.Count < 2 Then
MsgBox "比較するスライドが2枚以上ありません。", vbExclamation, "校正終了"
Exit Sub
End If
' 基準となる1枚目のスライドのBackground.Fillオブジェクトを取得
Dim baseFill As FillFormat
Set baseFill = targetPres.Slides(1).Background.Fill
' 基準の情報を取得
Dim baseType As MsoFillType
baseType = baseFill.Type
Debug.Print "=== 背景デザイン校正レポート ==="
Debug.Print "【基準スライド（1枚目）の塗りつぶしタイプ】: " & GetFillTypeName(baseType)
Dim i As Long
Dim errCount As Long
errCount = 0
' 2枚目以降のスライドをループしてチェック
For i = 2 To targetPres.Slides.Count
Dim currentFill As FillFormat
Set currentFill = targetPres.Slides(i).Background.Fill
' 1. まず「塗りつぶしの種類」が一致しているかチェック
If currentFill.Type <> baseType Then
Debug.Print ” [警告] スライド ” & i & “: 塗りつぶしの種類が基準と異なります (検出値: ” & GetFillTypeName(currentFill.Type) & “)”
errCount = errCount + 1
Else
‘ 2. タイプが同じ場合、さらに詳細なプロパティ（グラデーション角度など）を比較
Select Case baseType
Case msoFillGradient
‘ グラデーションの角度を比較
If currentFill.GradientAngle <> baseFill.GradientAngle Then
Debug.Print ” [警告] スライド ” & i & “: グラデーションの角度がズレています (基準: ” & baseFill.GradientAngle & “° / 検出値: ” & currentFill.GradientAngle & “°)”
errCount = errCount + 1
End If
Case msoFillTextured
‘ テクスチャの種類やファイル名を比較したい場合はここにロジックを追加
‘ （今回は簡略化のためタイプの合致のみ）
‘ 必要に応じて msoFillSolid (単色) などのチェックも追加可能
End Select
End If
Next i
‘ 結果発表
Debug.Print “================================”
If errCount = 0 Then
MsgBox “素晴らしい！背景デザインの不整合は検出されませんでした。”, vbInformation, “校正完了”
Else
MsgBox “校正完了。合計 ” & errCount & ” 件の「背景の揺らぎ」を検出しました。” & vbCrLf & “詳細はイミディエイトウィンドウを確認してください。”, vbExclamation, “警告”
End If
End Sub
‘ ———————————————————————
‘ 補助関数: MsoFillTypeの数値を分かりやすい文字列に変換する
‘ ———————————————————————
Private Function GetFillTypeName(ByVal fillType As MsoFillType) As String
Select Case fillType
Case msoFillBackground: GetFillTypeName = “背景に従う”
Case msoFillGradient: GetFillTypeName = “グラデーション”
Case msoFillPatterned: GetFillTypeName = “パターン”
Case msoFillPicture: GetFillTypeName = “図またはテクスチャ”
Case msoFillSolid: GetFillTypeName = “単色”
Case msoFillTextured: GetFillTypeName = “テクスチャ”
Case Else: GetFillTypeName = “その他/未定義”
End Select
End Function
—
4. コードの注目ポイントと「VBAの罠」
このコードを書くにあたって、PowerPoint VBA特有の重要なポイント（つまずきやすいポイント）を解説します。
① `Slide.Background` はデフォルトで何もしないと「何も返さない」ことがある？
PowerPointのスライドは、個別に背景を設定していない場合、親であるスライドマスターの背景を継承します。そのため、`Slide.Background` を操作するときは、オブジェクトのライフサイクルや継承関係に注意が必要です。
しかし、今回の `FillFormat` プロパティを経由した比較であれば、現在のスライドが保持しているレンダリング結果（見た目の設定値）を安全に取得することができます。
② イミディエイトウィンドウを活用せよ
エラーや警告をポップアップで何回も出すのはユーザーにとってストレスです。そのため、今回のコードでは `Debug.Print` を使ってVBEの「イミディエイトウィンドウ」に結果を出力するようにしています。
- 確認方法: VBEの画面で `Ctrl + G` を押すと、下部にウィンドウが現れます。そこにズラリと校正結果が表示される仕組みは、プロのエンジニアっぽくてカッコいいですよね！
—
5. さらに実務で応用するために
今回のコードをベースに、さらに実務で使えるようにカスタマイズするアイデアをいくつか紹介します。
- RGBカラーの比較を追加する:
`baseFill.ForeColor.RGB` と `currentFill.ForeColor.RGB` を比較すれば、微妙に色が違う「コピペミスの色違い」も検知できます。
- 警告箇所へジャンプする機能:
検出されたスライド番号（`i`）を利用して、`targetPres.Slides(i).Select` を実行すれば、マクロが自動でそのスライドを選択状態にしてくれます。
—
まとめ
今回は、PowerPoint VBAのオブジェクトモデルを深く理解し、実務で即戦力となる「背景デザイン校正ツール」の作り方を解説しました。
- オブジェクトの階層（`Slide` ➔ `Background` ➔ `Fill`）を意識する。
- 基準となる値を決め、ループで差分（揺らぎ）を検出する。
- 人間ではなく、コードにチェック作業を代行させる。
ここをクリアできれば、あなたのPowerPoint VBAのスキルは間違いなく中級者の領域に到達しています。ぜひ自分の資料作成や、チームの品質管理に役立ててみてくださいね。
それでは、また次回の極限の知見でお会いしましょう！
