【Visio VBA極限解説】座標系の真髄：PinX/PinYとLocPinX/LocPinYの完全掌握
シニアエンジニアおよびエンタープライズ領域のシステム管理者各位。
日々の業務自動化、あるいは他システム（CADやGIS、あるいはRDB）とのデータ連携において、Visioの図形配置位置が意図せずズレたり、あらぬ方向に吹っ飛んだりする怪奇現象に頭を悩ませていないだろうか。
原因は明確だ。多くの開発者が、Visio固有の「2つの座標系」――すなわち、ページ座標系（PinX / PinY）とローカル座標系（LocPinX / LocPinY）の概念を曖昧にしたままコードを書いているからに他ならない。
本稿では、Visio VBAの基礎でありながら、多くのエンジニアが挫折する座標系の核心を、オブジェクトモデルの挙動とメモリ管理の観点を交えながら徹底的に解き明かす。
—
1. Visio座標系のアーキテクチャ：なぜ図形は「意図しない場所」に飛ぶのか？
VisioのShapeSheetアーキテクチャにおいて、図形の位置と回転中心は以下の4つのセル（プロパティ）によって完全に支配されている。
1. PinX / PinY（ピンのページ座標）
- ページ上のどこに図形の「回転中心（ピン）」が位置しているかを示す（単位：通常はインチまたはセンチメートル）。
2. LocPinX / LocPinY（ローカル・ピン座標）
- 図形自身のローカル空間において、どこを「回転中心（ピン）」とするかを指定する。
ここで最も重要な、そして初心者が最も誤解しやすい鉄則を述べる。
> 「Visioの図形を移動・回転させる際、基準となるのは常にPin（ピン）の座標である。図形の左上や中心ではない。」
コード上で `shp.Cells(“PinX”).FormulaU = …` と記述したとき、動かしているのは「図形の中心」ではなく、「ピンが刺さっている点」なのだ。もしLocPinの位置を変更せずにPinX/PinYだけを操作すると、ピンの位置を軸にして図形が予期せぬオフセットを持って配置される。これが「図形が飛ぶ」現象の正体である。
—
2. オブジェクトのライフサイクルとメモリ最適化の極意
エンタープライズ環境におけるVisioマクロの実行では、メモリリークの排除が至上命題となる。特に大量の図形を一括生成・配置するバッチ処理では、`Application` や `Document`、`Page`、そして個々の `Shape` オブジェクトを適切に参照・解放しなければ、Visioプロセスが肥大化し、最悪の場合COM例外を引き起こす。
以下の実用コードは、座標系を完全に制御しながら、安全かつ高速に図形をグリッド配置するプロフェッショナル・パターンである。
Option Explicit
‘ ==============================================================================
‘ 概要: 座標系を厳密に制御しながら図形を整列配置するエンタープライズ向けプロシージャ
‘ アーキテクト特記事項:
‘ – 画面描画の抑制(ScreenUpdating)によるパフォーマンス劇的改善
‘ – オブジェクト変数の明示的なNothing代入によるCOMメモリの確実な解放
‘ ==============================================================================
Sub ExecutePreciseShapePlacement()
Dim appVisio As Visio.Application
Set appVisio = ActiveVisio ‘ 実行環境に応じたインスタンス取得
‘ 1. パフォーマンス最適化：画面描画とイベントの完全停止
appVisio.ScreenUpdating = False
appVisio.EventEnabled = False
Dim vsoPage As Visio.Page
Set vsoPage = appVisio.ActivePage
On Error GoTo ErrorHandler
Dim i As Long
Dim shp As Visio.Shape
Dim targetWidth As Double, targetHeight As Double
targetWidth = 2.0 ‘ 2インチ
targetHeight = 1.0 ‘ 1インチ
For i = 0 To 4
‘ 矩形シェイプの生成 (SimpleRectangle)
Set shp = vsoPage.DrawRectangle(i 2.5, 10, i 2.5 + targetWidth, 10 – targetHeight)
‘ — 座標系の制御 —
‘ 【重要】LocPinを明示的に図形の中心（Width / 2, Height / 2）に固定する
‘ これにより、ピンの位置＝図形の幾何学的中心となる
shp.CellsU(“LocPinX”).FormulaU = “Width0.5”
shp.CellsU(“LocPinY”).FormulaU = “Height0.5”
‘ PinX / PinYを設定（ページ上の絶対配置座標）
‘ 例: X軸方向に 1.0 + (i 2.5)、Y軸上に 8.0 の位置へ中心基準で配置
shp.CellsU(“PinX”).FormulaU = CStr(1.25 + (i 2.5)) & ” in”
shp.CellsU(“PinY”).FormulaU = “8.0 in”
‘ 形状のメタデータ付与（システム間連携用）
shp.Name = “ManagedNode_” & i
‘ ループ内での個別シェイプ参照の確実な解放
Set shp = Nothing
Next i
ErrorHandler:
If Err.Number <> 0 Then
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “Visio VBA System Error”
End If
‘ 2. 状態の復元とメモリクリーンアップ
appVisio.ScreenUpdating = True
appVisio.EventEnabled = True
Set shp = Nothing
Set vsoPage = Nothing
Set appVisio = Nothing
End Sub
—
3. レガシー環境と他システム連携における実践知見
長年運用されてきたレガシーなVisio図面を扱う際、あるいは外部のRDBやJSONから座標データをインポートして図形を自動生成するシステム連携基盤においては、以下の「罠」に注意せよ。
単位系の罠 (`Formula` vs `FormulaU`)
国際化（多言語対応）されたエンタープライズ環境では、ユーザーのロケールによって `Inches` や `Centimeters` などの文字列パースが異なる挙動を示す。
VBAコード内では、必ず `FormulaU` (Universal Formula) を使用し、単位にはプログラム言語非依存の内部形式（例: `in`, `mm`）または単位なしの「内部単位（インチ換算）」を渡すこと。これにより、ドイツ語環境や日本語環境が混在するグローバルネットワーク上でも座標計算の破綻を防げる。
セルの再計算コスト (Reconciliation)
数千個の図形をループ内で1つずつ `PinX` や `LocPinX` を書き換えていくと、Visioエンジンはその都度ShapeSheetの数式再評価とレイアウト再計算を行おうとする。結果として極端なパフォーマンス低下を招く。
前述のコード例のように `ScreenUpdating = False` を挟むことは大前提だが、さらに大規模なデータ処理を行う場合は、一度図形群をグループ化するか、一括して座標数式を流し込んだ後に一度だけ `.Requery` や画面更新を走らせるアーキテクチャ設計が求められる。
—
結び
Visio VBAにおける座標系（PinX/PinY と LocPinX/LocPinY）の理解は、単なる「図形を動かすためのテクニック」ではない。それは、Visioという強固なベクターグラフィックスエンジンを意のままに操り、堅牢なエンタープライズ自動化システムを構築するための不可欠なリテラシーである。
概念の本質を見極め、メモリを支配し、正確無比な自動化スクリプトを君の手で実装してほしい。
