【テクニカル・上級編】【中級者向け】Excelから「ページ名・サイズ・レイヤー構成」を読み込み、一括でドキュメントを構築する自動生成ツール – Visio VBA解析バイブル

構造化された設計図をコードで刻む：ExcelからVisioへの大規模ドキュメント自動生成アーキテクチャ

自動化という言葉は、現場では軽々しく使われすぎる。単なる「繰り返し作業の削減」を自動化と呼ぶのは、プロフェッショナルの仕事ではない。真の自動化とは、「不変のデータ構造（Manifest）から、複雑なオブジェクト階層を、決定論的に再構築すること」を指す。

今回扱うテーマは、Excelを「設計仕様書（データソース）」として使い、Visioを「レンダリングエンジン」として機能させる、大規模ドキュメント構築ツールの設計である。単にセルを読み取って図形を描くような初歩的な話ではない。COMオブジェクトのライフサイクル、メモリリークの抑制、そしてWindows APIを用いたプロセス制御――。レガシーなエンタープライズ環境においても、堅牢に動作し続けるための「極限の知見」をここに記す。

1. アーキテクチャの設計思想：データの分離と疎結合

多くのエンジニアが陥る罠は、Excel VBAの中にVisioの操作ロジックを直接書き込み、密結合にしてしまうことだ。これでは仕様変更のたびにコードが崩壊する。

我々が構築すべきは、以下の3層構造である。

1. Data Manifest (Excel): ページ名、用紙サイズ（幅・高さ）、レイヤー構成、および各要素の属性を定義する純粋なデータ層。
2. Controller (Excel VBA): Excelのデータを走査し、VisioのAPIへ命令を伝達するオーケストレーター。
3. Engine (Visio API): 命令を受け取り、実際にページ、レイヤー、オブジェクトを生成する実行層。

この分離により、将来的にデータソースがSQL ServerやJSONに変わったとしても、Engine側のロジックを一切変更せずに済む。

2. 実装：堅牢な自動生成エンジンの構築

以下に、シニアエンジニアが実戦で用いるレベルのコード構造を示す。ここでは、メモリ管理とエラーハンドリングに最大限の比重を置いている。

Excel側：Controllerの実装

' --- Excel Module ---
Option Explicit

' Windows APIの宣言: プロセスの安定性を確保するためのスリープ
If VBA7 Then
    Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
Else
    Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
End If

Sub GenerateVisioDocument()
    Dim visioApp As Object ' Visio.Application (Late Binding for compatibility)
    Dim visioDoc As Object ' Visio.Document
    Dim ws As Worksheet
    Dim i As Long
    Dim lastRow As Long
    
    Set ws = ThisWorkbook.Sheets("Config") ' 設計データシート
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    On Error GoTo ErrorHandler

    ' 1. Visioアプリケーションの起動と制御
    On Error Resume Next
    Set visioApp = GetObject(, "Visio.Application")
    If visioApp Is Nothing Then
        Set visioApp = CreateObject("Visio.Application")
    End If
    On Error GoTo ErrorHandler
    
    visioApp.Visible = True
    Set visioDoc = visioApp.Documents.Add ' 新規ドキュメント作成
    
    ' 2. データの走査と構築ループ
    ' A列: ページ名, B列: 幅(mm), C列: 高さ(mm), D列: レイヤー名
    For i = 2 To lastRow
        Dim pageName As String: pageName = ws.Cells(i, 1).Value
        Dim pWidth As Double:  pWidth = ws.Cells(i, 2).Value
        Dim pHeight As Double: pHeight = ws.Cells(i, 3).Value
        Dim layerName As String: layerName = ws.Cells(i, 4).Value
        
        ' Visioへの構築命令（後述のVisio制御ロジックへ）
        Call BuildVisioPage(visioDoc, pageName, pWidth, pHeight, layerName)
        
        ' COMオブジェクトの負荷軽減とOSへの制御権譲渡
        DoEvents
        Sleep 50 ' 極めて短時間の待機が、大規模処理時のゾンビプロセス化を防ぐ
    Next i

    MsgBox "ドキュメント構築が完了しました。", vbInformation

CleanUp:
    ' 3. メモリの明示的な解放 (Critical for COM)
    Set visioDoc = Nothing
    Set visioApp = Nothing
    Exit Sub

ErrorHandler:
    MsgBox "致命的なエラーが発生しました: " & Err.Description, vbCritical
    Resume CleanUp
End Sub

' Visio操作の抽象化レイヤー
Private Sub BuildVisioPage(ByRef doc As Object, pName As String, pW As Double, pH As Double, lName As String)
    Dim pg As Object ' Visio.Page
    
    ' ページ追加
    Set pg = doc.Pages.Add
    pg.Name = pName
    
    ' ページサイズ設定 (Visioの内部単位はインチ/メートルだが、ここではmmから変換が必要)
    ' 1 mm = 0.0393701 inches
    pg.PageWidth = pW * 0.0393701
    pg.PageHeight = pH * 0.0393701
    
    ' レイヤーの追加と管理
    ' レイヤーが既に存在するかチェックするロジックは実務上必須
    On Error Resume Next
    Dim ly As Object
    Set ly = doc.Layers.Add(lName)
    If Err.Number <> 0 Then
        ' 既に存在する場合は既存のレイヤーを取得
        Set ly = doc.Layers.Item(lName)
        Err.Clear
    End If
    On Error GoTo 0
    
    ' レイヤーの可視性を制御
    ly.Cells("Print").FormulaU = "1" ' 印刷設定
    ly.Cells("Visible").FormulaU = "1" ' 表示設定
End Sub

3. 極限の知見：エンジニアが知っておくべき「深淵」

コードを動かすだけなら、上記のスクリプトで十分だ。しかし、シニアエンジニアとして、以下の3点については深く理解しておく必要がある。

① COMオブジェクトのライフサイクルと「ゾンビプロセス」

VBAからVisioを操作する場合、`Set obj = Nothing` を書くだけでは不十分なケースがある。参照カウントが適切にゼロにならない限り、Excelを閉じても `Visio.exe` がタスクマネージャーに残り続ける。これはメモリリークの温床であり、CI/CDパイプラインやサーバーサイドでの自動実行において致命的な失敗を招く。

• 対策: 大規模なループ内では `DoEvents` を挟み、極小の `Sleep` を入れることで、Windowsのメッセージキューを処理させ、COMの参照カウントの整合性を保つ。

② 単位系の変換誤差 (Unit Precision)

VisioのAPIは、多くの場合「インチ」を基準とした浮動小数点数でページサイズを扱う。Excelから「mm」で入力された値を渡す際、単純な掛け算を行うと、微小な誤差によって「ページサイズが0.00001インチずれている」という事態が発生する。これが原因で、後の「図形がページからはみ出す」「印刷時に端が切れる」といった、原因特定が困難なバグを引き起こす。

• 対策: 変換係数は定数として定義し、必要に応じて `Round` 関数による丸め処理を検討せよ。

③ レイヤー操作の冪等性 (Idempotency)

自動生成ツールにおいて、「二度実行しても同じ状態になること（冪等性）」は絶対条件である。
「レイヤーを追加する」という命令を、既に存在するレイヤーに対して実行すると、Visioはエラーを吐くか、あるいは重複したレイヤーを作成しようとする。

• 対策: `On Error Resume Next` で回避する手法もあるが、プロフェッショナルとしては `doc.Layers.Item(name)` を試行し、存在を確認してから `Add` する、あるいはエラー番号を明示的に判定するロジックを組むべきだ。

結言

Visio VBAによる自動化は、単なる「絵を描く作業」ではない。それは、構造化されたデータを、物理的な制約（ページサイズ）や論理的な制約（レイヤー）を持つオブジェクトへと変換する、高度なデータ・マッピング・プロセスである。

メモリの挙動、APIの単位系、そしてプロセスのライフサイクル。これらの低レイヤーな知識を携えて初めて、エンジニアは「動くツール」ではなく、「信頼に足るシステム」を構築することができるのだ。