PowerPoint VBAで「透かし」を自動化せよ：業務を破壊せず、美しくPDF化する極意
こんにちは。業務自動化の世界へようこそ。
マクロの記録ボタンを押すだけの「作業者」から、コードでPowerPointを意のままに操る「エンジニア」へ。その第一歩として、今回は「全スライドへのウォーターマーク（透かし）挿入と、クリーンなPDFエクスポート」という実務直結のテーマを扱います。
なぜこれが重要か？ それは、「元のプレゼンファイルを汚さずに、一時的な制約を強制できる」という、プロフェッショナルが守るべきセキュリティの基本原則に直結しているからです。
—
なぜ「スライドマスター」ではなく「シェイプ挿入」なのか
初心者がまず考えるのは「スライドマスターに透かしを置く方法」ですが、あれは罠です。マスターをいじると、元ファイルのレイアウト構造を破壊しかねません。
我々エンジニアがとるべき戦略はこうです。
1. 一時的レイヤーの生成: スライドの最前面に「透かし」シェイプを置く。
2. PDFへの焼き込み: その状態でPDF出力する。
3. 完全な削除: 終了時にシェイプを跡形もなく消す。
このライフサイクルをVBAで完結させれば、ファイルは常に「無垢な状態」を保てます。
—
【実装コード】究極の透かし自動化スクリプト
以下のコードをVBE（Visual Basic Editor）に貼り付けてみてください。このコードは、全スライドの特定位置に「CONFIDENTIAL」という透かしを配置し、PDF保存後に即座に消去する一連の流れを自動化します。
Sub ExportConfidentialPDF()
Dim pptApp As Application
Dim pptPres As Presentation
Dim sld As Slide
Dim shp As Shape
Dim pdfPath As String
‘ PDF保存先のパス（デスクトップを指定）
pdfPath = Environ(“USERPROFILE”) & “\Desktop\Exported_Confidential.pdf”
Set pptPres = ActivePresentation
‘ 1. 全スライドに「透かし」を配置
For Each sld In pptPres.Slides
Set shp = sld.Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 200, 500, 100)
With shp
.Name = “Watermark_Temp” ‘ 削除時に特定するための名前
.TextFrame.TextRange.Text = “CONFIDENTIAL – DO NOT DISTRIBUTE”
.TextFrame.TextRange.Font.Size = 54
.TextFrame.TextRange.Font.Color.RGB = RGB(200, 200, 200) ‘ 薄いグレー
.TextFrame.TextRange.Font.Transparency = 0.5 ‘ 半透明
.Rotation = -30 ‘ 斜めに配置
End With
Next sld
‘ 2. PDFエクスポート
pptPres.ExportAsFixedFormat pdfPath, ppFixedFormatTypePDF
‘ 3. 後処理：透かしを削除（元のファイルに戻す）
For Each sld In pptPres.Slides
For Each shp In sld.Shapes
If shp.Name = “Watermark_Temp” Then
shp.Delete
End If
Next shp
Next sld
MsgBox “PDF出力が完了しました。元ファイルは汚していません。”, vbInformation
End Sub
—
プロが教える「コードの読み解き」と「エラー対策」
1. なぜ `.Name = “Watermark_Temp”` を入れるのか？
VBAでオブジェクトを操作する際、最も恐ろしいのは「どれが生成したシェイプで、どれが元のコンテンツか分からなくなること」です。名前を固定することで、削除時にピンポイントで指定できます。これが「オブジェクトのライフサイクル」を管理するということです。
2. `For Each` ループの正体
`For Each sld In pptPres.Slides` は、コレクション（スライドの集合体）を一つずつ巡回する、VBAで最もエレガントな手法です。もしループ中にエラーが起きると、透かしが残ったまま終わるリスクがあります。本番環境では `On Error GoTo Cleanup` のように、エラー発生時にも必ず削除処理が走るような「防衛的プログラミング」を意識しましょう。
3. 陥りやすい罠：座標設定
`AddTextbox` の引数には `Left, Top, Width, Height` を指定します。これらは「ポイント」単位であり、スライドの解像度に依存しません。もし「常に中央」に配置したいなら、`ActivePresentation.PageSetup.SlideWidth` を利用して計算する必要があります。
—
次のステップ：ここをクリアすれば「伝説」に近づく
このスクリプトをマスターしたら、次は以下のカスタマイズに挑戦してみてください。
- PDFパスの動的設定: `InputBox` を使って、保存先やファイル名をユーザーが選べるようにする。
- 非表示スライドの除外: `If sld.SlideShowTransition.Hidden = msoFalse Then` を使い、非表示スライドには透かしを入れないようにする。
- 画像化: テキストではなく、PNGのスタンプ画像を透かしとして埋め込む（`AddPicture` メソッドを使用）。
PowerPoint VBAは、単なる自動化ツールではありません。あなたの「頭の中にあるデザイン」を、コードを通じて数秒で全スライドに展開する、思考の拡張デバイスです。
さあ、恐れずにコードを書き換えてください。エラーは、あなたが成長しているという最高のアラートです。健闘を祈ります。
