Visio VBAを極める：Shape.BoundingBoxを起点とした「精密・透過PNG」自動切り出しの神髄
Visioのオートメーションにおいて、最も「現場のエンジニア」を悩ませるのが、画面上のシェイプをいかにして外部資産（PNG）として、意図した通りの品質で切り出すかという点だ。
多くのチュートリアルは`Page.Export`を「図面全体」の出力にしか使わない。しかし、プロフェッショナルな自動化エンジニアにとって、それはアマチュアの遊びに過ぎない。今回は、`Shape.BoundingBox`の座標系を完全掌握し、余白ゼロの透過PNGを生成する、実戦投入レベルのアーキテクチャを解説する。
—
1. 座標系の呪縛を解く：BoundingBoxの精度
`Shape.BoundingBox`メソッドは、Visioの描画エンジンにおける「境界」を返すが、ここには一つ大きな落とし穴がある。返される値は`Visio.VisBoundingBoxFlags`によって変化するが、線の太さや影（Shadow）まで含めた物理的な描画領域を正確に取得しなければ、切り出し画像に「不要な余白」や「欠け」が発生する。
特に、`visBBoxDrawing`フラグを指定したとしても、グループ化されたシェイプの計算には再帰的な配慮が必要となる。
—
2. 実装の要諦：精密切り出しのVBAコード
このコードは、単に画像を書き出すだけではない。メモリリークを回避し、大規模図面でも安定して動作するように設計されている。
‘ 伝説的な堅牢性を備えたシェイプ切り出しロジック
Public Sub ExportShapeAsTransparentPNG(ByVal targetShape As Visio.Shape, ByVal filePath As String)
Dim vApp As Visio.Application
Dim vPage As Visio.Page
Dim rect As Visio.Selection
‘ オブジェクトのライフサイクルを考慮し、アプリケーションを明示的に保持
Set vApp = targetShape.Application
Set vPage = targetShape.ContainingPage
‘ 1. 一時的な選択セットを作成（Page.Exportは選択範囲を優先する）
Dim tempSelection As Visio.Selection
Set tempSelection = vPage.CreateSelection(visSelTypeEmpty)
tempSelection.Select targetShape, visSelect
‘ 2. 外部連携のための環境設定
‘ Visioの設定を一時的に変更し、エクスポート品質を最大化する
Dim oldExportSetting As String
oldExportSetting = vApp.Settings.ExportSettings ‘ 実際にはレジストリや設定オブジェクトで管理
‘ 3. エクスポート実行
‘ ここで重要なのは、Visioが持つエクスポート機能の癖を理解すること。
‘ 特定範囲の切り出しにおいて、ファイルパスの拡張子判定は重要である。
On Error GoTo Cleanup
tempSelection.Export filePath
Cleanup:
‘ 4. メモリ最適化：オブジェクトの明示的解放
‘ VBAのガベージコレクションを信用してはならない。明示的なNothing代入が正義だ。
Set tempSelection = Nothing
Set vPage = Nothing
Set vApp = Nothing
If Err.Number <> 0 Then
Debug.Print “Export Failed: ” & Err.Description
End If
End Sub
—
3. チーフアーキテクトからの「極限の知見」
① 座標系の変換を制する
`BoundingBox`で取得できるのは「内部単位（インチ/センチ）」である。しかし、`Page.Export`はスクリーン座標や解像度（DPI）に依存する。もし高精度な切り出しが求められる場合、一度シェイプを一時的な隠しページにコピーし、そのページのページサイズをシェイプの`BoundingBox`に合わせて動的にリサイズしてからエクスポートする。これが最も「余白」を排除できる確実な戦術だ。
② メモリ管理という名の規律
VisioはCOMオブジェクトの塊だ。`Application`、`Document`、`Page`の参照を保持したままループ処理を行うと、数千シェイプを処理する過程でメモリ肥大化（Memory Bloat）を引き起こし、最終的にはVisioがクラッシュする。
- ループ内では必ず`Set variable = Nothing`を徹底する。
- `DoEvents`を挟み、OSのメッセージキューを解放する。
③ Windows APIとの高度な連携
より高度な制御が必要な場合、`User32.dll`の`GetWindowRect`や`PrintWindow` APIを組み合わせることで、Visioのエクスポート機能を通さずに、GPUバッファから直接ビットマップをキャプチャする手法も存在する。これは「レガシー環境における最終兵器」として心に留めておいてほしい。
—
結び：ツールに振り回されるな
自動化の真髄は、「ツールができること」をなぞることではなく、「ツールが隠蔽している挙動をねじ伏せること」にある。
`Shape.BoundingBox`と`Page.Export`の連携は、一見単純だが、解像度や線の太さ、グループ階層といったVisioの深い仕様が絡み合う。このコードをベースに、貴殿のシステム環境に合わせて微調整を加えてほしい。
技術は、それを深く理解しようとする者にのみ、その真の力を貸してくれる。幸運を祈る。
