プログラミングの世界へようこそ。そして、PowerPoint VBAという「隠された強力なエンジン」の扉を開いたあなたへ。
「マクロの記録」ボタンを押すだけの世界から一歩踏み出し、自分の手でプレゼンテーションを操る。これは単なる作業の自動化ではなく、あなたの思考をプレゼンテーションというキャンバスに高速で焼き付けるための「魔術」の習得です。
今回は、現場で必ず重宝される「社外秘ウォーターマークの自動一括挿入」を題材に、VBAの核心を伝授します。
—
なぜ「手動」ではなく「コード」なのか？
もしスライドが100枚あったら、あなたは100回コピー＆ペーストを繰り返しますか？ 人間は疲労し、ミスをします。しかし、VBAは違います。一度書いたロジックは、100枚でも1000枚でも、寸分の狂いなく、そして瞬時に処理を完了させます。
今回目指すのは、「保存ボタンを押す前の一手間」を自動化し、セキュリティの穴を埋める堅牢なコードです。
—
【極限の知見】ウォーターマーク挿入のVBAコード
以下のコードを、PowerPointで `Alt + F11` を押して開くVBAエディタに貼り付けてください。
Sub AddConfidentialWatermarkAndSave()
Dim sld As Slide
Dim shp As Shape
Dim pptPres As Presentation
Set pptPres = ActivePresentation
‘ 1. 全スライドをループ処理する
For Each sld In pptPres.Slides
‘ 重複挿入を防ぐため、一度同名のシェイプがあれば削除する（ライフサイクル管理の基本）
DeleteExistingWatermark sld
‘ 2. テキストボックスの追加 (左, 上, 幅, 高さ)
Set shp = sld.Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 200, 500, 100)
‘ 3. ウォーターマークのプロパティ設定
With shp
.TextFrame.TextRange.Text = “【社外秘】”
.TextFrame.TextRange.Font.Size = 80
.TextFrame.TextRange.Font.Color.RGB = RGB(200, 200, 200) ‘ 薄いグレー
.TextFrame.TextRange.Font.Transparency = 0.5 ‘ 半透明にする
.Rotation = -30 ‘ 斜めにする
.ZOrder msoSendToBack ‘ 最背面へ配置
End With
Next sld
‘ 4. 保存実行（必要に応じてパスを変更してください）
pptPres.Save
MsgBox “全スライドにウォーターマークを適用し、保存しました。”, vbInformation
End Sub
‘ 既存のウォーターマークを消すためのヘルパー関数
Sub DeleteExistingWatermark(sld As Slide)
Dim shp As Shape
For Each shp In sld.Shapes
If shp.TextFrame.TextRange.Text = “【社外秘】” Then
shp.Delete
End If
Next shp
End Sub
—
コードを読み解く：エンジニアの思考プロセス
このコードには、ただ動くだけではない「プロの作法」が3つ隠されています。
1. `For Each` ループによる「全走査」
PowerPointのプレゼンテーションは「Slideオブジェクトの集まり（Slidesコレクション）」です。`For Each sld In pptPres.Slides` は、「スライドを1枚ずつ順番に手に取って作業する」という指示です。このループ構造こそが、VBAで大量のドキュメントを処理する際の「心臓部」です。
2. `ZOrder` によるレイヤー操作
PowerPointは重なり順で管理されています。ウォーターマークは内容を邪魔してはいけません。そのため、`.ZOrder msoSendToBack` を使い、強制的に最背面へ送っています。これを忘れると、文字の上にウォーターマークが重なり、内容が読めない事故が発生します。
3. 「削除してから生成」という安全設計
「何回もマクロを押したら、ウォーターマークが何重にもなってしまうのでは？」――その懸念は鋭いです。だからこそ、処理の冒頭で `DeleteExistingWatermark` を呼び出し、一度「更地」にしてから配置しています。「何度実行しても同じ結果になる（冪等性：べきとうせい）」というのは、自動化エンジニアが最も大切にしている哲学です。
—
初学者が陥りやすい「エラーの罠」
- 「オブジェクトがありません」エラー:
一番多い原因は「スライドがない状態で実行した」または「選択中のオブジェクトがない」ケースです。必ず `ActivePresentation` が存在することを確認する癖をつけましょう。
- 名前の衝突:
複数のシェイプがある場合、名前を特定せずに操作しようとすると予期せぬ挙動をします。今回は「テキストの内容」で判定していますが、さらに高度な開発では `shp.Name` を活用して特定のシェイプを追跡します。
—
次のステップへ
ここをクリアしたあなたなら、次は「PDFとしてエクスポートする際に自動でファイル名をタイムスタンプ付きにする」といった、より実践的な応用が可能です。
PowerPoint VBAは、あなたの「面倒だ」という感情を「知的生産性」に変えるための最強の武器です。恐れずにコードを書き換え、自分だけのライブラリを育てていってください。
困ったときは、またいつでもここへ来てください。あなたの成長を、エンジニアの端くれとして応援しています。
