Visio VBAの深淵：座標系の呪縛を解き、PinX/PinYを支配する極意
Visioのオートメーションにおいて、最も多くのエンジニアが「なんとなく」で済ませ、そして最も多くの現場で障害を生むのが「座標系」の理解不足だ。
`PinX` と `PinY`。これらは単なる数値ではない。図形というオブジェクトが、Visioという広大な空間の中で「どの地点を軸にして存在しているか」を定義する、存在論的なパラメータだ。今回は、この座標系の真実と、パフォーマンスを犠牲にしない精密なレイアウト制御の極意を伝授する。
—
1. 原点の真実：Page座標系とPinの相関
Visioの座標系において、原点(0,0)は常に「ページ左下」にある。しかし、初心者が陥る最大の罠は、「図形の左下を基準に配置しようとする」ことだ。
Visioにおける `PinX/PinY` は、図形の LocPin（回転中心） が配置される座標を指す。つまり、以下の式が成立する。
- PinX = 図形の中心的なX座標
- LocPinX = 図形の幅方向における「回転中心」のオフセット
もしあなたが `Shape.Cells(“PinX”).Formula = “100mm”` と書いたとき、移動するのは図形の左端ではない。`LocPinX` で指定された地点が100mmの位置に移動するだけだ。これを理解していないと、複雑な図面生成で座標が微妙にズレる「1ピクセルの亡霊」に一生悩まされることになる。
—
2. 座標計算の最適化：数式注入の回避とSetAtRef
多くのVBAコードで見かける `Shape.Cells(“PinX”).Formula = “…”` は、実は低速だ。Visioは文字列として数式をパースするため、大量のオブジェクトを処理する際、この「文字列解釈」がオーバーヘッドとなる。
厳密な制御には `ResultIU` プロパティを用い、内部単位（インチ）で計算するのが鉄則だ。
実践：高精度配置コード
‘ 伝説的なチーフアーキテククトが推奨する、図形配置の定石
Public Sub PrecisePositioning(shp As Visio.Shape, x As Double, y As Double)
‘ 内部単位(Internal Units)は常にインチ。mmをインチに変換して処理する
‘ 1 inch = 25.4 mm
Const INCH_PER_MM As Double = 1 / 25.4
‘ オブジェクトのロック状態を考慮した防衛的コーディング
If shp.Cells(“LockMoveX”).ResultIU <> 0 Then shp.Cells(“LockMoveX”).Formula = “0”
‘ SetAtRefではなくResultIUで直接書き込む（最速）
shp.Cells(“PinX”).ResultIU = x INCH_PER_MM
shp.Cells(“PinY”).ResultIU = y INCH_PER_MM
‘ メモリ最適化：オブジェクト参照を明示的に解放
‘ 大規模ループ処理時は特に重要
End Sub
—
3. シニアエンジニアのためのメモリ管理とパフォーマンス
VBAはガベージコレクションが脆弱だ。数千の図形をループで配置する場合、`Visio.Application` や `Document` オブジェクトを無駄に生成し続けると、メモリリークの温床となる。
極限の知見：オブジェクトのライフサイクル管理
1. Application.ScreenUpdating = False を徹底せよ。描画更新を止めるだけで、処理速度は一桁変わる。
2. イベントの停止: `Application.EventsEnabled = False` を活用せよ。図形移動時に発生する不要なイベント連鎖を遮断する。
3. オブジェクトの解放: ループの最後で必ず `Set shp = Nothing` を行え。特に大規模なCAD図面データを取り込む際は、これだけでメモリの枯渇を防げる。
‘ パフォーマンスを極限まで引き出すための定型句
Application.ScreenUpdating = False
Application.EventsEnabled = False
On Error GoTo Cleanup
‘ ここに重い処理を記述
Cleanup:
Application.EventsEnabled = True
Application.ScreenUpdating = True
‘ オブジェクトの明示的破棄
Set shp = Nothing
—
4. レガシー環境との戦い：Windows APIの活用
もしあなたが社内の古いVisio環境（2010/2013等）の保守に苦しんでいるなら、VBA単体では制御不能な「ウィンドウ描画のチラつき」や「ダイアログの割り込み」に遭遇するだろう。
その際、`User32.dll` を呼び出し、`LockWindowUpdate` を実行することで、描画プロセスをOSレベルで強制停止できる。これはVBAの標準機能では成し得ない、シニアエンジニアの最後の切り札だ。
If VBA7 Then
Private Declare PtrSafe Function LockWindowUpdate Lib “user32” (ByVal hwndLock As LongPtr) As Long
Else
Private Declare Function LockWindowUpdate Lib “user32” (ByVal hwndLock As Long) As Long
End If
‘ 描画ロックの実行：システムフリーズを防ぐ防波堤となる
LockWindowUpdate Application.WindowHandle32
‘ … 処理 …
LockWindowUpdate 0
—
結びに代えて
Visioの座標系を制する者は、オートメーションを制する。
`PinX/PinY` を単なるプロパティとしてではなく、図形の「重心」を制御するベクトルの終点として捉えること。そして、VBAを単なるスクリプト言語ではなく、メモリを直接叩く低レイヤーのツールとして扱うこと。
これが、我々がレガシーなシステムを現代の高速な業務基盤へと変貌させるための、唯一の道である。コードは正直だ。あなたの設計思想がそのまま、処理速度とメンテナンス性に反映される。
さあ、次はどのオブジェクトを制御する？
