Visio VBAを掌握せよ：外部画像を自在に操る「自動配置」の極意
こんにちは。現場で泥臭い自動化を積み重ね、気づけばVisioの内部構造と対話できるまでになったチーフアーキテクトです。
「マクロの記録」ボタンを押して生成された、冗長で修正不能なコードに絶望したことはありませんか？ Visio VBAの世界へようこそ。ここは、図形をただ配置するだけでなく、「図面そのものをエンジニアリングする」ための領域です。
今回は、社内ロゴやアイコンを自動挿入し、常に最新のリソースを維持するための「画像自動配置ロジック」を伝授します。これさえ理解すれば、あなたはもう「図面を手作業で修正する奴隷」から解放されます。
—
1. Visioオブジェクトモデルの「階層構造」を理解する
コードを書く前に、Visioが世界をどう見ているかを知りましょう。Visioには絶対的な階層があります。
1. Application: Visioそのもの（神）
2. Document: 開いているファイル
3. Page: 図面の中のキャンバス
4. Shape: ページ上のすべての構成要素
画像を配置するということは、「Page（キャンバス）に対して、新しいShape（画像）を投げ込む」という行為です。この構造を脳内に叩き込んでください。
—
2. 【核心】InsertFromFileメソッドの真実
画像を挿入するには `Page.Import` メソッド（旧来の `InsertFromFile` を含む）を使います。しかし、ただコードを叩くだけでは「狙った場所に置けない」「サイズがバラバラ」という悲劇が待っています。
以下のコードは、実務でそのまま使える、堅牢に設計されたプロシージャです。
Sub InsertLogoAutomatically()
Dim vsoPage As Visio.Page
Dim vsoShape As Visio.Shape
Dim strImagePath As String
‘ 1. 対象のページを指定（アクティブなページを取得）
Set vsoPage = ActivePage
‘ 2. 画像のパスを指定（ネットワークドライブやUNCパスを推奨）
strImagePath = “C:\Resources\CompanyLogo.png”
‘ 3. 画像のインポート
‘ Importメソッドは、読み込まれたShapeオブジェクトを返します
Set vsoShape = vsoPage.Import(strImagePath)
‘ 4. 座標とサイズの制御（ここがプロの腕の見せ所）
‘ Visioの原点は通常左下。インチ単位で処理される点に注意！
With vsoShape
.Cells(“PinX”).Formula = “5 in” ‘ 横位置
.Cells(“PinY”).Formula = “8 in” ‘ 縦位置
.Cells(“Width”).Formula = “2 in” ‘ 幅
.Cells(“LockAspectRatio”).Formula = “TRUE” ‘ アスペクト比を固定
End With
MsgBox “ロゴの配置が完了しました。最新状態です！”, vbInformation
End Sub
—
3. なぜ「マクロの記録」ではダメなのか？
マクロの記録で生成されるコードは、現在選択している図形に対する「相対的な操作」を記録するだけです。しかし、上記のコードのようにオブジェクト変数（`vsoShape`）に代入することで、「配置した瞬間に、その図形のプロパティを直接操作する」ことが可能になります。
これができると、こんな魔法が使えます：
- 動的更新: 社内ロゴが変わった？ パスを変えてマクロを叩くだけで、全図面のロゴが一瞬で差し替わります。
- 一括処理: `For Each vsoPage In ActiveDocument.Pages` で回せば、数百ページの図面でも数秒で最新化完了です。
—
4. 陥りやすい罠と解決策
初心者が必ず踏む「地雷」を先回りして教えます。
- 単位の罠: Visioはデフォルトで「インチ」で計算します。もしセンチメートルで考えたいなら、`Formula` 内で `”10 cm”` のように明示的に単位を書く癖をつけてください。
- パスの罠: 相対パス（`.\logo.png`）は避けてください。Visioのワーキングディレクトリは気まぐれです。必ずフルパス（`C:\…`）を指定しましょう。
- エラーハンドリング: 画像がない場合にマクロがクラッシュします。`Dir(strImagePath)` を使って、ファイルが存在するか確認する `If` 文を必ず入れましょう。
—
最後に：エンジニアへの一歩
今回紹介した「画像の配置」は、Visio自動化の入り口に過ぎません。しかし、この「オブジェクトを特定し、属性（座標やサイズ）を制御する」というサイクルこそが、あらゆる自動化の基礎となります。
ここをクリアしたあなたは、もう「Visioを動かされる側」ではなく、「Visioを支配する側」です。
次は、配置した画像にハイパーリンクを自動付与したり、図面内の情報を抽出してExcelに書き出すステップへ進みましょう。何かわからないことがあれば、いつでも聞いてください。あなたの自動化の旅を、全力でサポートします。
それでは、良いコーディングを！
