Visio VBAの深淵：画像埋め込みの「作法」と、負債を作らない自動配置アーキテクチャ
Visioで「ロゴを配置する」という単純作業。GUIでドラッグ＆ドロップしていれば終わる話だが、数千枚の図面を管理するフェーズに達したとき、手作業は最大の経営リスクとなる。
多くの初心者が陥る罠は、「とりあえず動くコード」を量産し、メモリリークや座標の不整合という時限爆弾を抱えることだ。 伝説的なアーキテクトとして、今日伝授するのは、単なる「InsertFromFile」の呼び出し方ではない。エンタープライズ環境で10年先までメンテナンス可能な「画像管理自動化」の設計思想だ。
—
1. なぜ「InsertFromFile」だけでは不十分なのか
VBAの`Page.Import`メソッドは強力だが、思考停止して使うと痛い目を見る。
- 非同期的なリソース負荷: 大量の図面に画像を埋め込む際、ファイルパスの参照が切れたり、キャッシュが肥大化したりする。
- 座標系の罠: Visioはページ座標（Inches/mm）とShapeのピン位置が複雑に絡み合う。単純な配置では、図面の回転や縮尺変更でレイアウトが崩壊する。
- オブジェクトの生存期間: 生成されたShapeオブジェクトを適切にハンドリングしなければ、メモリリークの温床となる。
—
2. プロダクションコード：Robust Image Importer
以下は、実務でそのまま運用可能な「エラーハンドリング付き画像配置関数」だ。単に配置するだけでなく、配置後のShapeに対して一意のタグ（Prop）を付与し、後から一括置換や更新ができる設計にしている。
‘ @description 指定パスの画像をページに配置し、管理用プロパティを付与する
‘ @param targetPage (Visio.Page) 配置先
‘ @param imagePath (String) ファイルパス
‘ @param x (Double) 配置X座標 (インチ単位)
‘ @param y (Double) 配置Y座標 (インチ単位)
Public Sub InsertManagedImage(targetPage As Visio.Page, imagePath As String, x As Double, y As Double)
Dim shp As Visio.Shape
‘ ファイルの存在確認：ここを怠る初心者が多すぎる
If Dir(imagePath) = “” Then
Err.Raise vbObjectError + 1001, “ImageImporter”, “ファイルが見つかりません: ” & imagePath
End If
On Error GoTo ErrHandler
‘ インポート実行
Set shp = targetPage.Import(imagePath)
‘ Shapeの属性を固定（アスペクト比維持）
shp.LockAspectRatio = True
‘ 座標設定（PinX, PinYは図形の中心点であることを理解せよ）
shp.Cells(“PinX”).Formula = x
shp.Cells(“PinY”).Formula = y
‘ 管理用カスタムプロパティを付与（将来の更新管理用）
If Not shp.SectionExists(visSectionProp, True) Then shp.AddSection visSectionProp
shp.AddRow visSectionProp, visRowProp, 0
shp.Cells(“Prop.ImageSource”).Formula = “””” & imagePath & “”””
Exit Sub
ErrHandler:
Debug.Print “Error ” & Err.Number & “: ” & Err.Description
‘ ここでログ出力やロールバック処理を実装する
End Sub
—
3. 運用フェーズで意識すべき3つの「極限の知見」
① 座標系を絶対座標にするな
Visioの座標は、親オブジェクト（グループ化されたShapeなど）によって相対的に変化する。ページ直下に配置するのか、特定のコンテナ（Container）内に配置するのかで、コードの挙動は劇的に変わる。「どの座標系を基準にするか」の設計図を先に描くこと。
② ファイルパスは「変数化」せよ
コード内に `C:\Users\Name\Desktop\…` と直書きするのは言語道断である。
- 設定ファイル（JSONまたは外部Excel）にパスを逃がす。
- 相対パス計算（`ThisWorkbook.Path`の活用）を徹底し、環境移行時に壊れない構造を作る。
③ インポートのオーバーヘッドを制御せよ
Visioは画像を埋め込む際、内部的にエンコード処理を行う。数百枚の図面を一括処理する場合、`Application.ScreenUpdating = False` を使い、描画更新を止めるのが鉄則だ。これだけで処理速度は数倍変わる。
—
4. 最後に：自動化は「道具」ではなく「管理」である
今回のコードは、あくまで「画像を置く」ための第一歩に過ぎない。真の自動化エンジニアは、「画像を更新した際に、既存の図面をどう差し替えるか」までを設計する。
先ほどコード内で付与した `Prop.ImageSource` を利用すれば、後から「特定のパスの画像を最新のロゴへ一括置換する」という管理ツールへ容易に拡張できる。
自動化のコードを書く際、常に自分に問いかけてほしい。「これは使い捨てのスクリプトか？ それとも、組織の資産として機能するシステムか？」と。
君たちが書く一行が、誰かの数時間の作業を救う。その重みを背負って、コードを書いてほしい。質問があればいつでも来い。現場の最前線で待っている。
