Visio自動化の「作法」：テンプレートからステンシルを完璧に制御する極意
Visioの自動化において、多くの初心者が陥る罠がある。「とりあえず動くコード」を書くことだ。しかし、業務で使うツールにおいて「とりあえず」は技術的負債の始まりに過ぎない。
今日は、VSDXファイルを生成し、特定のステンシルを確実に読み込むという、自動化の「最初の関門」を突破する。単なるAPIの羅列ではない。「なぜそう書くべきか」という設計思想まで含めて叩き込む。
—
1. 「テンプレート指定」という設計思想
新規ドキュメントを作成する際、`Documents.Add` メソッドを使うのは基本だが、ここで安易に空のドキュメントを開いてはいけない。業務効率化を目指すなら、必ず「テンプレート（VSTX）」を指定せよ。
なぜか？ ページ設定、レイヤー、スタイル、そしてコネクタの挙動まで、テンプレートに定義しておくことで、VBA側のコードを劇的に減らし、保守性を高められるからだ。コードで図形の設定を一つ一ついじるのは、泥沼への入り口だ。
2. プロダクション環境に耐えうる実装コード
以下は、テンプレートからファイルを作成し、必要なステンシルを確実にロードするための堅牢なコードである。
Option Explicit
‘ ———————————————————
‘ 目的: テンプレートから新規図面を作成し、指定ステンシルをロードする
‘ 備考: パスはフルパスで記述すること。環境依存を防ぐため定数化を推奨
‘ ———————————————————
Public Sub CreateDrawingFromTemplate()
Dim doc As Visio.Document
Dim stencil As Visio.Document
Dim templatePath As String
Dim stencilPath As String
‘ 1. パスの定義（保守性を高めるため、必ず定数か設定ファイルから読み込む）
templatePath = “C:\Templates\MyBusinessTemplate.vstx”
stencilPath = “C:\Stencils\InternalStandard.vssx”
On Error GoTo ErrorHandler
‘ 2. テンプレートを基に新規図面を作成
‘ Documents.Addに引数を渡すことで、テンプレートの全設定を継承する
Set doc = Application.Documents.Add(templatePath)
‘ 3. ステンシルのロード（すでに開いている場合はエラーになるため制御が必要）
If Not IsStencilOpen(stencilPath) Then
Set stencil = Application.Documents.OpenEx(stencilPath, VisOpenSaveArgs.visOpenDocked)
End If
MsgBox “図面生成が完了しました。”, vbInformation
Exit Sub
ErrorHandler:
MsgBox “致命的なエラーが発生しました: ” & Err.Description, vbCritical
End Sub
‘ ———————————————————
‘ 既にステンシルが開いているかを確認するヘルパー関数
‘ ———————————————————
Private Function IsStencilOpen(path As String) As Boolean
Dim doc As Visio.Document
Dim fileName As String
fileName = Mid(path, InStrRev(path, “\”) + 1)
For Each doc In Application.Documents
If LCase(doc.Name) = LCase(fileName) Then
IsStencilOpen = True
Exit Function
End If
Next
IsStencilOpen = False
End Function
3. このコードにおける「極限の知見」
このコードには、ただ動くだけではない「現場の教訓」が詰まっている。
- `OpenEx` の選択:
`Documents.Open` ではなく `OpenEx` を使っているのは、ステンシルの開き方を制御するためだ。`visOpenDocked` を指定することで、UI上の配置を固定し、ユーザーの混乱を防ぐ。些細なUIの制御が、運用の安定性に直結する。
- 二重起動の防止:
ステンシルを何度も開こうとすると、Visioはメモリを無駄に消費し、最悪の場合はクラッシュする。`IsStencilOpen` 関数のようなチェック機構は、プロフェッショナルであれば必須の「防衛的コーディング」だ。
- パスの管理:
ハードコーディングは避けよ。今回は例として直書きしているが、実務では `Environ` 関数でユーザープロファイルを取得するか、INIファイル/JSONから読み込む設計にすべきだ。
4. 次のステップ：PDF出力という「締め」
ファイル生成の仕上げには、PDF出力が待っている。多くの現場で見かける「PrintOut」メソッドは今すぐ捨てろ。あれはプリンタドライバに依存するため、環境によって挙動が激しく変わる。
Visioの現代的な自動化では、`Document.ExportAsFixedFormat` を使え。これにより、環境に依存せず、安定してPDFを書き出すことが可能になる。
—
まとめ：プロとして生き残るために
Visio VBAは、一見すると古い技術に見えるかもしれない。しかし、オブジェクトモデルを深く理解し、メモリのライフサイクルを意識した設計を行えば、これほど強力な自動化ツールはない。
「コピペで動いた」だけで満足するな。そのコードが、3年後の自分がメンテできるものか、そして他人が読んだ時に論理の破綻がないかを常に自問自答すること。それが、エンジニアとしての格を上げる唯一の道だ。
さあ、次はエラーハンドリングを強化し、データベースとの連携へと進もう。準備はできているか？
