Visio VBAを掌握する極限の知見：なぜ「Nothing」を制する者がVisioを制するのか
こんにちは。業務自動化の現場でVisioの深淵を覗き続けてきたアーキテクトです。
「マクロの記録」から一歩踏み出し、自力でコードを書き始めたあなたの画面に、こんな現象は起きていませんか？
- 「コードは動くけど、Visioを閉じてもプロセスが裏で残り続ける」
- 「何度か実行すると、Visioが急激に重くなる、あるいは突然落ちる」
もし心当たりがあるなら、あなたは今、Visio VBAにおける「メモリ管理」という最大の壁に直面しています。これは初心者から中級者へステップアップする唯一の関門です。今日は、なぜ「Nothing」という小さな命令が、あなたのVisioを救うのかを解説します。
—
1. Visioは「手のかかる巨大なOS」のようなもの
Visioのオブジェクトモデルは非常に精巧です。`Application`、`Document`、`Page`、`Shape`……これらは単なる変数ではありません。Visioという巨大なエンジンが管理する「メモリ上の住所」を指し示すポインタ（参照）です。
VBAで `Dim shp As Visio.Shape` と宣言し、そこにオブジェクトを代入した瞬間、Visioは「このオブジェクトはまだ使われている！」と判断し、メモリ内にその存在をガッチリと保持します。
「Nothing」は解放の儀式
コードの最後で `Set shp = Nothing` と書くのは、単なるお作法ではありません。「もうこのメモリ領域は使わないから、Visioさん、回収していいですよ」という、OSに対する明確な解放宣言なのです。これを怠ると、Visioは「まだ使われるかもしれない」とビクビクしながら、メモリを占有し続けます。これが「プロセスが残る」正体です。
—
2. 現場で使える「安全なコード」の書き方
まずは、初心者が陥りがちな「メモリを残すコード」と、プロが書く「後始末を徹底したコード」を比較してみましょう。
NG：メモリを垂れ流す書き方
Sub BadExample()
Dim shp As Visio.Shape
‘ これだけだと、マクロ終了後もshpの参照がメモリに残り続けるリスクがある
Set shp = ActivePage.DrawRectangle(0, 0, 1, 1)
End Sub
Good：プロが守る「解放の鉄則」
Sub GoodExample()
‘ オブジェクト変数を明示的に宣言
Dim vsoApp As Visio.Application
Dim vsoDoc As Visio.Document
Dim vsoPage As Visio.Page
Dim vsoShp As Visio.Shape
‘ Visioオブジェクトの取得
Set vsoApp = Application
Set vsoDoc = vsoApp.ActiveDocument
Set vsoPage = vsoDoc.ActivePage
Set vsoShp = vsoPage.DrawRectangle(0, 0, 1, 1)
‘ 処理内容…
vsoShp.Text = “Hello, Automation!”
‘ 【最重要】作成した順序と逆順で解放していく
‘ これにより、メモリリークを確実に防ぐ
Set vsoShp = Nothing
Set vsoPage = Nothing
Set vsoDoc = Nothing
Set vsoApp = Nothing
End Sub
—
3. なぜ「逆順」で解放するのか？
鋭い方はお気づきでしょう。`Set vsoShp = Nothing` から逆順に解放していますよね。
これは、「親（Application）を先に殺すと、子（Shape）が迷子になる」という参照の依存関係を守るためです。
- `Application` が `Document` を抱え、
- `Document` が `Page` を抱え、
- `Page` が `Shape` を抱えている。
この「入れ子構造」の末端から順番に紐を解いていくのが、Visioを安定稼働させるための最もエレガントな作法なのです。
—
4. もっと賢いエンジニアになるためのワンポイント：Error Handling
現場のコードでは、途中でエラーが発生して処理が止まることがあります。すると `Set = Nothing` の行まで到達できず、メモリが解放されません。これを防ぐのが「終了処理の集約」です。
Sub ProLevelExample()
Dim vsoShp As Visio.Shape
On Error GoTo Cleanup ‘ エラーが発生したらCleanupへジャンプ
Set vsoShp = ActivePage.DrawRectangle(0, 0, 1, 1)
‘ 何か複雑な処理…
Cleanup:
‘ 正常終了でもエラー終了でも、必ずここを通る
If Not vsoShp Is Nothing Then Set vsoShp = Nothing
End Sub
この `If Not vsoShp Is Nothing` という判定を入れるのが、真のエンジニアの嗜みです。「入っているなら消す、入っていないなら何もしない」。この堅牢さが、あなたのプログラムを「動くツール」から「信頼されるシステム」へと進化させます。
—
最後に：自動化は「片付け」までがセット
Visio VBAは、非常に強力なツールです。しかし、その強力さは「リソースの管理」という責任と引き換えにあります。
「Nothing」を記述するたびに、あなたはVisioという巨大なエンジンを制御下に置いているという実感が湧くはずです。最初は面倒に感じるかもしれませんが、これを習慣化してしまえば、あなたはもう「マクロの記録」を卒業した、立派なオートメーション・エンジニアです。
さあ、次はどの作業を自動化しましょうか？あなたの挑戦を応援しています。
