プレゼンテーションに「証跡」を刻め：QRコード動的生成とトレーサビリティを担保するPDFエクスポートの極意
業務自動化の現場において、「スライドを作る」ことと「管理可能なドキュメントを生成する」ことの間には、深くて暗い溝がある。
多くのエンジニアが陥る罠は、単に「スライドの隅に画像としてQRコードを貼る」という、表面的な実装で満足してしまうことだ。しかし、コンプライアンスや監査ログが求められるエンタープライズ領域では、それは自動化とは呼ばない。それは単なる「作業の置き換え」に過ぎない。
我々プロフェッショナルが目指すべきは、各スライドに一意の識別子（ID）を紐付けたQRコードを動的に埋め込み、その情報を保持したまま、改ざん耐性を意識したPDFへと昇華させる「ドキュメント・パイプライン」の構築である。
本稿では、オブジェクトのライフサイクル、API連携の堅牢性、そしてレイアウト制御の精度を極限まで高めた、プロダクションレベルの実装手法を伝授する。
1. 設計思想：なぜ「Select」を使ってはいけないのか
コードを書く前に、設計の根幹を定義する。初級者が書くコードには、`ActiveWindow.Selection` や `Slide.Select` が頻出する。これは致命的な欠陥だ。
オブジェクト・ライフサイクルの制御
`Select` メソッドは、ユーザーの視覚的な操作（フォーカス移動）に依存する。大規模なスライド群を処理する場合、フォーカスの移動はパフォーマンスを著しく低下させ、予期せぬエラー（スライドが切り替わるタイミングでのオブジェクト喪失など）を引き起こす。
我々が採用すべきは、「オブジェクトへの直接参照」だ。
`Slide` オブジェクトから直接 `Shapes.AddPicture` を呼び出し、生成された `Shape` オブジェクトを変数として保持する。これにより、メモリ上のオブジェクトを直接操作し、決定論的な動作を保証する。
トレーサビリティの定義
単なるURLのQRコードでは不十分だ。スライドごとに「どのプレゼンテーションの、どのスライドか」を特定できる一意のパラメータ（例：`DOC_ID_SLIDE_NUM`）をURLに含める設計にする。これが、後続のPDF解析における「証跡」となる。
2. 実装アーキテクチャ
今回の実装では、以下の3つのコンポーネントを分離して設計する。
1. QR Code Generator (API Client): 外部API（Google Chart API等）を叩き、バイナリデータを取得する。
2. Layout Engine: スライドのサイズ（Aspect Ratio）を動的に計算し、右下隅の座標を正確に特定する。
3. Export Controller: 処理全体を統括し、エラーハンドリングとPDF出力を行う。
3. プロダクション・コード：QRコード自動生成・配置・PDF出力エンジン
以下のコードは、そのまま実務に投入できるレベルの堅牢性を備えている。
Option Explicit
' --- 定数定義：マジックナンバーを排除し、保守性を高める ---
Private Const QR_SIZE As Single = 50 ' QRコードのサイズ(pt)
Private Const MARGIN As Single = 10 ' 右下からのマージン(pt)
Private Const API_URL_BASE As String = "https://chart.googleapis.com/chart?chs=150x150&cht=qr&chl="
''' <summary>
''' メインプロセス：全スライドにQRコードを配置し、PDFとして保存する
''' </summary>
Public Sub GenerateTraceablePresentation()
Dim targetPres As Presentation
Dim sld As Slide
Dim qrShape As Shape
Dim docID As String
Dim savePath As String
Dim errorCount As Integer
Set targetPres = ActivePresentation
docID = "DOC-" & Format(Now, "YYYYMMDD-HHMMSS") ' 一意のドキュメントID
savePath = targetPres.Path & "\" & docID & ".pdf"
On Error GoTo ErrorHandler
' 画面更新を止める（Excelのような機能はないが、処理の高速化のために意識する）
Debug.Print "Starting Process: " & docID
For Each sld In targetPres.Slides
' 1. QRコード用データの構築 (トレーサビリティ確保のためスライド番号を含める)
Dim qrData As String
qrData = docID & "_SLIDE_" & sld.SlideIndex
' 2. QRコードの生成と配置
Set qrShape = AddQRCodeToSlide(sld, qrData)
If qrShape Is Nothing Then
errorCount = errorCount + 1
End If
Next sld
' 3. PDFエクスポート
' FixFormatを使用し、高精度なPDF出力を実行
targetPres.ExportAsFixedFormat _
Path:=savePath, _
FixedFormatType:=ppFixedFormatTypePDF, _
Intent:=ppFixedFormatIntentPrint
MsgBox "処理完了" & vbCrLf & "保存先: " & savePath, vbInformation
Exit Sub
ErrorHandler:
MsgBox "致命的なエラーが発生しました: " & Err.Description, vbCritical
End Sub
''' <summary>
''' スライドの右下隅にQRコードを動的に生成・配置する
''' </summary>
Private Function AddQRCodeToSlide(targetSlide As Slide, data As String) As Shape
On Error GoTo InnerErrorHandler
Dim http As Object
Dim qrUrl As String
Dim qrTempPath As String
Dim newShape As Shape
Dim posX As Single
Dim posY As Single
' API URLの構築
qrUrl = API_URL_BASE & WorksheetFunction_EncodeURL(data)
qrTempPath = Environ("TEMP") & "\temp_qr_" & Timer & ".png"
' 1. HTTPリクエストによる画像取得
Set http = CreateObject("MSXML2.XMLHTTP")
http.Open "GET", qrUrl, False
http.Send
If http.Status <> 200 Then
Debug.Print "API Error: " & http.Status
Set AddQRCodeToSlide = Nothing
Exit Function
End If
' 2. 一時ファイルとして保存
Dim stream As Object
Set stream = CreateObject("ADODB.Stream")
stream.Type = 1 ' adTypeBinary
stream.Open
stream.Write http.responseBody
stream.SaveToFile qrTempPath, 2 ' adSaveCreateOverWrite
stream.Close
' 3. レイアウト計算（スライドのサイズに基づき右下隅を特定）
' PageSetupからスライドの幅と高さを取得
posX = targetSlide.Parent.PageSetup.SlideWidth - QR_SIZE - MARGIN
posY = targetSlide.Parent.PageSetup.SlideHeight - QR_SIZE - MARGIN
' 4. Shapeの追加（Direct Reference方式）
Set newShape = targetSlide.Shapes.AddPicture( _
Filename:=qrTempPath, _
LinkToFile:=msoFalse, _
SaveWithDocument:=msoTrue, _
Left:=posX, _
Top:=posY, _
Width:=QR_SIZE, _
Height:=QR_SIZE)
' 属性の設定（後続の編集を容易にするため、タグ付けを行う）
newShape.Name = "Traceability_QR_" & targetSlide.SlideIndex
' 一時ファイルの削除
Kill qrTempPath
Set AddQRCodeToSlide = newShape
Exit Function
InnerErrorHandler:
Debug.Print "Slide " & targetSlide.SlideIndex & " Error: " & Err.Description
Set AddQRCodeToSlide = Nothing
End Function
''' <summary>
''' URLエンコード（簡易実装）
' </summary>
Private Function WorksheetFunction_EncodeURL(ByVal str As String) As String
' 本来は詳細なエンコードが必要だが、ここでは実務的な簡易実装を示す
' 特殊文字を含む場合は、別途正規のエンコード関数を呼び出すこと
WorksheetFunction_EncodeURL = Replace(str, " ", "%20")
End Function4. アーキテクトの視点：ここが「プロ」の分かれ目だ
このコードには、単なるスクリプトにはない「実務への配慮」が組み込まれている。
① エラー・アイソレーション（エラーの分離）
`AddQRCodeToSlide` 関数内に `InnerErrorHandler` を設けている点に注目してほしい。もし特定の1枚のスライドでAPI通信に失敗しても、マクロ全体を停止させず、エラーをログ（Debug.Print）に記録して次のスライドへ進む。これは、数百枚のスライドを処理する大規模ジョブにおいて、「全滅を防ぐ」ための必須設計だ。
② 座標計算の抽象化
`targetSlide.Parent.PageSetup.SlideWidth` を使用している。これにより、プレゼンテーションが 4:3 なのか 16:9 なのか、あるいはカスタムサイズなのかに関わらず、常に「右下隅」という相対的な位置を絶対的な座標へと正確に変換できる。
③ リソース管理とクリーンアップ
`ADODB.Stream` を用いたバイナリデータの書き出しと、`Kill` による一時ファイルの削除。これを行わないと、自動化ツールを繰り返すたびにサーバーやローカルマシンの `TEMP` フォルダがゴミデータで溢れ、システムのパフォーマンスを蝕むことになる。
④ トレーサビリティの強化（拡張への示唆）
コード内の `newShape.Name` にスライド番号を付与している。これは、後から「このQRコード、どのスライドのものだっけ？」と検証する際に、PowerShellや他の自動化ツールからオブジェクトを特定するための「メタデータ」として機能する。
5. まとめ：保守性の高いコードとは
優れた自動化エンジニアは、コードを書く時間よりも、「そのコードが動かなくなった時に、いかに容易に原因を特定できるか」を考える時間に多くのリソースを割く。
今回提示したコードは、以下の3原則に基づいている。
1. 疎結合: API取得、レイアウト、エクスポートが分離されている。
2. 決定論的: `Select` を排除し、常に同じ座標に同じ結果をもたらす。
3. 堅牢: エラーが発生しても、プロセス全体を崩壊させない。
君が作るツールは、単なる便利ツールであってはならない。企業の信頼性を支える、堅牢な「システム」でなければならないのだ。
