Visio VBAの深淵：Shape DataをPDFメタデータへ昇華させるエンジニアリング
Visioを単なる「作図ツール」と見なしている間は、君の業務は自動化されない。Visioは、巨大なデータ構造体（Graph-based Data Structure）を内包した、強力なドキュメントエンジンだ。
今日は、Visioの図面に埋め込まれた「Shape Data（旧カスタムプロパティ）」を抽出し、PDF出力時にメタデータとして刻み込む技術について解説する。文書管理システム（DMS）における検索性を極限まで高めるために必要な、プロフェッショナルなアーキテクチャだ。
—
1. オブジェクトライフサイクルの真実とメモリ管理の鉄則
VBAでのVisio操作において、最も初心者が犯す罪は「暗黙的な参照」の放置だ。`ActivePage` や `ActiveWindow` を多用するコードは、メモリリークと予期せぬクラッシュの温床となる。
シニアレベルの設計では、常にオブジェクト変数を明示的に宣言し、終了時に `Nothing` を代入してスタックを整理する。特にVisioのCOMオブジェクトは、背後に巨大なアンマネージド・リソースを抱えている。
‘ メモリリークを防ぐための基本構造
Public Sub ExportToPdfWithMetadata()
Dim vsoDoc As Visio.Document
Dim vsoPage As Visio.Page
Dim vsoShape As Visio.Shape
‘ ここで特定のドキュメントを明示的に取得する
Set vsoDoc = Application.ActiveDocument
‘ … 処理 …
‘ 処理終了後、スコープの大きいオブジェクトから順に解放する
Set vsoShape = Nothing
Set vsoPage = Nothing
Set vsoDoc = Nothing
End Sub
—
2. Shape Data抽出の最適化：Cellの反復処理
図面内の全シェイプを舐めるような愚かなループは書くな。`Shape.CellExists` を使って、目的のプロパティ（例: `Prop.DocumentID`）が存在するかを高速に判定せよ。
また、`Section` を直接叩くアプローチは、大規模図面においてパフォーマンスを劇的に向上させる。
‘ 特定のShape Dataを高速に取得するロジック
Private Function GetShapeData(vsoShape As Visio.Shape, propName As String) As String
On Error Resume Next
‘ CellExistsで存在確認し、存在しない場合のオーバーヘッドを回避
If vsoShape.CellExists(“Prop.” & propName, visExistsAnywhere) Then
GetShapeData = vsoShape.Cells(“Prop.” & propName).ResultStr(“”)
Else
GetShapeData = “”
End If
On Error GoTo 0
End Function
—
3. PDFメタデータへの反映：レガシーとAPIの狭間で
Visio標準の `ExportAsFixedFormat` メソッドには、残念ながらPDFのメタデータ（タイトル、著者、キーワード）を直接引数で渡す機能は備わっていない。
ここが腕の見せ所だ。私たちは以下の2つの戦略をとる。
1. Visioのドキュメントプロパティを更新してからPDF化する（推奨）
2. PDF生成後にWindows APIまたは外部ライブラリ（iText等）でメタデータをパッチする
最も堅牢なのは、Visioドキュメントそのものの組み込みプロパティを更新してからエクスポートする手法である。Visioは内部でPDF変換を行う際、自身のプロパティを参照するからだ。
Public Sub SyncDataAndExport(filePath As String)
Dim vsoDoc As Visio.Document
Set vsoDoc = Application.ActiveDocument
‘ 1. Shape Dataから値を取得（例：最初のシェイプから取得）
Dim docTitle As String
docTitle = GetShapeData(vsoDoc.Pages(1).Shapes(1), “Title”)
‘ 2. Visio組み込みプロパティを更新
vsoDoc.DocumentSheet.Cells(“Prop.Title”).Formula = “””” & docTitle & “”””
‘ ※実はDocumentSheetのプロパティはPDFのメタデータに継承される
‘ 3. PDFエクスポート
vsoDoc.ExportAsFixedFormat visFixedFormatPDF, filePath, _
visDocFromAllPages, visSelectionNone, , , , , , , False
Set vsoDoc = Nothing
End Sub
—
4. チーフアーキテクトからの提言：堅牢性の確保
システム管理者が懸念するのは、常に「想定外の図面構造」によるエラーだ。
- エラーハンドリングの徹底: `On Error GoTo` を活用し、各プロセスが失敗した際にどのレイヤーで止まったかをログに書き出す。
- Windows APIの活用: 必要であれば、`ShellExecute` を使用してPDF生成後のファイル権限を変更したり、署名を付与する外部ツールをキックするフローを組むべきだ。
- レガシー環境の保守: `Visio 2010` 以前の古いVSDファイルを扱う場合、`SaveAs` メソッドの互換性に注意せよ。必ず事前に `vsoDoc.SaveAs` で最新形式（VSDX）に変換するラッパーを一枚噛ませるのが定石だ。
結論
PDFのメタデータに情報を埋め込むことは、単なる自動化のタスクではない。それは、「図面という非構造化データを、検索可能な構造化資産へ変換する」というエンジニアリングの仕事だ。
コードをコピペして満足するな。その背後にあるオブジェクトモデルの挙動を理解し、自身の環境に合わせて最適化せよ。それが、真の「業務自動化エンジニア」への道である。
何か不明な点があれば、具体的な例外処理の設計について議論しよう。現場からは以上だ。
