こんにちは、チーフアーキテクトの私だ。
業務自動化の現場において、PowerPointの「意図しないデザイン崩れ」や「フォント置換によるレイアウト破綻」、さらには「機密データの流出・改ざん」は、プロジェクトマネージャーやセキュリティ担当者の頭を常に悩ませる悪夢の一つだ。
特に、社外秘の提案書や、デザインのトーン＆マナーを完全に固定して配布したい資料において、相手がPowerPointを開いて文字をいじれてしまう状態は、コンプライアンス上も絶対に避けなければならない。
今回は、プレゼンテーション内の全スライドを完璧にラスタライズ（画像化）し、「1枚も編集不可能な堅牢なPPTX」として新規作成する改ざん防止自動化マクロを授けよう。
ただ動くだけのコードではない。PowerPointのオブジェクトモデルの挙動、メモリ管理、そして実務で必ず直面する「解像度の罠」をクリアしたプロダクションコードだ。
—
なぜ「PDF変換」ではなく「画像化PPTX」なのか？
実務の現場では、「PDFにすればいいじゃないか」という声が必ず上がる。しかし、ビジネスの現場では「PDFだとスマホで見づらい」「TeamsやSharePoint上でプレビューが崩れる」「動画やアニメーションの代わりのペーパーレス配布資料としてPPTXの形式を維持したい」という強い要望が存在する。
PDFに逃げず、「PPTXの器のまま、中身を完全な画像（ビットマップ）に置き換える」ことこそが、エンドユーザーの利便性とセキュリティを両立させる唯一の解となる。
—
実装上の重要な設計思想（プロの知見）
今回のマクロを構築するにあたり、以下の3つの技術的課題をクリアしている。
1. エクスポート解像度の制御（Exportメソッドの罠）
PowerPointの `Slide.Export` メソッドは非常に便利だが、デフォルトのままだと解像度が低く、プロジェクター投影や高解像度モニターで見たときに「ぼやけた粗悪な資料」になってしまう。適切な幅と高さを指定して高精細な画像（例: 1920×1080以上）として出力する。
2. 一時ファイルのクリーンアップ
画像を生成する過程でローカルのテンポラリフォルダに画像ファイルを吐き出す必要がある。処理の途中でエラー落ちしてもゴミが残らないよう、確実に削除するハンドリングを実装する。
3. 新規プレゼンテーションへのクリーンなインポート
元のファイルを汚さない（上書き保存による事故を防ぐ）ため、必ず「新規プレゼンテーション」を裏で生成し、そこに画像化されたスライドを流し込む安全設計にする。
—
プロダクションコード
以下のコードをVBAエディタ（標準モジュール）に貼り付けて実行してほしい。アクティブなプレゼンテーションを読み込み、改ざん防止処理を施した新しいプレゼンテーションを自動生成する。
Option Explicit
‘ =================================================================00室
‘ 業務自動化アーキテクチャ設計
‘ 目的: アクティブなプレゼンテーションの全スライドを画像化し、
‘ 改ざん不能な新規PPTXとして出力する。
‘ =======================================================================
Sub GenerateSecurePresentation()
Dim srcPres As Presentation
Dim newPres As Presentation
Dim sld As Slide
Dim newSld As Slide
Dim tempFolder As String
Dim tempFilePath As String
Dim slideWidth As Single
Dim slideHeight As Single
Dim i As Long
‘ エラーハンドリングの準備
On Error GoTo ErrorHandler
‘ 1. 実行前バリデーション（プレゼンテーションが開かれているか）
If Application.Presentations.Count = 0 Then
MsgBox “処理対象のプレゼンテーションが開かれていません。”, vbCritical, “致命的エラー”
Exit Sub
End If
Set srcPres = Application.ActivePresentation
‘ 2. スライドサイズの取得（元のマスター比率を維持するため）
slideWidth = srcPres.PageSetup.SlideWidth
slideHeight = srcPres.PageSetup.SlideHeight
‘ 3. 一時フォルダパスの取得
tempFolder = Environ$(“TEMP”) & “\”
‘ 4. 出力用の新規プレゼンテーションを作成（元のサイズを踏襲）
Set newPres = Application.Presentations.Add(msoTrue)
newPres.PageSetup.SlideWidth = slideWidth
newPres.PageSetup.SlideHeight = slideHeight
‘ 画面描画をロックしてパフォーマンスを最大化
Application.ScreenUpdating = False
‘ 5. 全スライドをループ処理
For i = 1 To srcPres.Slides.Count
Set sld = srcPres.Slides(i)
‘ 一時画像ファイルのパスを生成（PNG形式で高画質を維持）
tempFilePath = tempFolder & “Slide_Temp_” & Format(i, “0000”) & “.png”
‘ スライドを画像としてエクスポート
‘ ※実務要件に応じ、幅(Width)・高さ(Height)の引数を調整して高解像度化を図る
Call sld.Export(tempFilePath, “PNG”, 1920, 1080)
‘ 新規プレゼンテーションに空白スライドを追加
Set newSld = newPres.Slides.Add(newPres.Slides.Count + 1, ppLayoutBlank)
‘ スライド全体に画像を隙間なく貼り付ける
‘ 座標(0, 0)にスライドサイズいっぱいで配置
Dim targetPic As Shape
Set targetPic = newSld.Shapes.AddPicture( _
FileName:=tempFilePath, _
LinkToFile:=msoFalse, _
SaveWithDocument:=msoTrue, _
Left:=0, Top:=0, _
Width:=slideWidth, Height:=slideHeight)
‘ 念のため画像の枠線を消去
targetPic.Line.Visible = msoFalse
‘ 使用した一時ファイルを即座に削除（ディスク容量の圧迫とセキュリティ対策）
If Dir(tempFilePath) <> “” Then
Kill tempFilePath
End If
Next i
‘ 画面描画の復元
Application.ScreenUpdating = True
‘ 完了メッセージ
MsgBox “改ざん防止用プレゼンテーションの生成が完了しました。” & vbCrLf & _
“（全 ” & srcPres.Slides.Count & ” スライドを画像化しました）”, vbInformation, “処理成功”
Exit Sub
ErrorHandler:
‘ 異常終了時のクリーンアップ
Application.ScreenUpdating = True
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“Error Description: ” & Err.Description, vbCritical, “システムエラー”
End Sub
—
コードの急所：実務でトマホークを避けるためのポイント
1. `Export` メソッドの解像度指定
コード内では `sld.Export(tempFilePath, “PNG”, 1920, 1080)` と指定している。ここを省略すると、画面解像度依存の粗い画像になり、印刷や大画面投影で使い物にならなくなる。対象のプレゼンテーションの縦横比（16:9など）に合わせてピクセル比を調整するのが、プロとしての美しい仕事だ。
2. `ScreenUpdating = False` による高速化
PowerPoint VBAにおいて、スライドの追加や画像のインポートを画面描画ありで行うと、チカチカと画面が点滅し、処理速度が何倍にも跳ね上がる。必ず処理の冒頭で描画を止め、最後に復元させろ。数五十枚規模の大型提案書では、この一手間で体感時間が劇的に変わる。
3. 一時ファイルの確実な破棄
機密データを扱うマクロにおいて、ローカルの `C:\Users\…\AppData\Local\Temp` に機密スライドの画像が残存することはセキュリティインシデントの温床となる。本コードではループ内で1枚処理するごとに `Kill` を実行し、ファイルシステム上にデータを残さない堅牢な設計にしている。
—
現場への展開と運用のアドバイス
このマクロをチームメンバーやアシスタントに展開する場合、アドイン（`.ppam`）化してPowerPointに組み込むのが最もスマートだ。
「ボタンひとつ押すだけで、レイアウトもフォントも絶対に崩れない、改ざん不能な配布用ファイルが生成される」。この体験を提供することこそが、業務自動化エンジニアの真骨頂である。
泥臭い手作業や、他人のスキルに依存した品質管理からは、今日で卒業しよう。コードでロジカルに担保された世界を構築せよ。
