【テクニカル・上級編】【上級プロ向け】複数レイヤーに散らばるガイド線を種類別（X軸・Y軸・斜め）に配列へ高速格納し、一括で座標一括シフト・再配置するアルゴリズム – CorelDRAW VBA解析バイブル

座標の解放：COMインターフェースのオーバーヘッドを回避する「ETL型」ガイド制御アルゴリズム

多くの開発者が、CorelDRAW VBAを「単なるマクロ言語」と捉え、オブジェクトモデルの表面的な操作に終始している。しかし、大規模な設計図面や、数千のガイド線が複雑なレイヤー構造の中に埋め込まれたプロダクトを扱うエンジニアにとって、その認識は致命的なパフォーマンス不足を招く。

CorelDRAWのオブジェクトモデルは、COM（Component Object Model）に基づいている。`ActiveDocument.Pages(1).Layers(i).Guides` をループで回し、一つ一つのオブジェクトに対してプロパティにアクセスする行為は、実行プロセス間でのコンテキストスイッチを頻発させ、メモリバスに過剰な負荷をかける。

本稿では、ガイド線の操作を「オブジェクトの操作」としてではなく、「メモリ上のデータ変換（ETL: Extract, Transform, Load）」として再定義する。複数レイヤーに散らばるガイド線を、一度メモリ上の構造体配列へ退避させ、数学的演算を完結させた後、一括で書き戻す――この極限の最適化手法を伝授する。

1. 敗北のパターン：なぜ単純なループは遅いのか

初心者が書くコードは、典型的には以下のような構造だ。

' 【アンチパターン】極めて低速な実装
For Each lyr In ActiveDocument.Layers
    For Each g In lyr.Guides
        g.PositionX = g.PositionX + offset ' ここで毎回COM通信が発生する
    Next g
Next lyr

このコードの罪は、`g.PositionX` にアクセスするたびに、VBAエンジンがCorelDRAWのコアプロセスに対して「値を読み取れ」「値を書き込め」という命令を投げている点にある。レイヤー数やガイド数が増大した瞬間、指数関数的に処理時間は増大し、アプリケーションは応答なしの状態に陥る。

我々が目指すべきは、「COMへの接触回数を最小限に抑え、計算はVBA（CPU）のローカルメモリ上で行う」という設計思想だ。

2. アーキテクチャ設計：ETLアルゴリズムの採用

高度な制御を実現するため、以下の3フェーズによるアルゴリズムを構築する。

1. Extract（抽出）: 全レイヤーを走査し、ガイド線の属性（種類、座標、角度、所属レイヤー）を、軽量な User-Defined Type (UDT) の配列へ一括格納する。
2. Transform（変換）: メモリ上の配列に対して、数学的オフセットや回転行列を用いた座標計算を行う。このフェーズではCorelDRAWには一切触れない。
3. Load（書き戻し）: 計算済みのデータを、元のレイヤーのガイドオブジェクトへ高速に反映させる。

データ構造の定義

まず、ガイド線の情報を保持するための軽量な構造体を定義する。

' ガイド線の属性を保持する軽量な構造体
' オブジェクトではなく、プリミティブ型のみで構成することでメモリ効率を最大化する
Private Type GuideData
    LayerIndex As Long    ' 所属レイヤーのインデックス
    GuideType As Integer  ' 0: Vertical, 1: Horizontal, 2: Angled
    PosX As Double        ' X座標
    PosY As Double        ' Y座標
    Angle As Double       ' 角度 (Angled用)
    OriginalRef As Object ' 書き戻し用の参照（※後述の注意点参照）
End Type

' 定数定義
Private Const TYPE_VERTICAL = 0
Private Const TYPE_HORIZONTAL = 1
Private Const TYPE_ANGLED = 2

3. 実装：極限の最適化コード

以下に、実戦投入可能なレベルのコードを示す。ここでは、メモリ管理と実行速度のバランスを極限まで追求している。

Option Explicit

''' <summary>
''' 複数レイヤーのガイド線を一括で座標シフトするメインルーチン
''' </summary>
Public Sub BatchShiftGuides()
    Dim doc As Document
    Set doc = ActiveDocument
    
    If doc Is Nothing Then Exit Sub

    ' 1. パフォーマンス最適化の開始
    ' 描画更新とイベント通知を停止し、COM通信のオーバーヘッドを削る
    Optimization = True
    EventsEnabled = False
    
    On Error GoTo ErrorHandler

    Dim guideArray() As GuideData
    Dim count As Long
    count = 0

    ' --- PHASE 1: Extract ---
    Dim lyr As Layer
    Dim g As Guide
    
    ' 予め配列の最大容量を確保（動的リサイズを抑制）
    ' 実際には全ガイド数を事前にカウントするか、十分なサイズを確保する
    ReDim guideArray(1 To 5000) 

    For Each lyr In doc.Layers
        ' 非表示レイヤーのガイドは無視する設計判断
        If lyr.Visible Then
            For Each g In lyr.Guides
                count = count + 1
                If count > UBound(guideArray) Then ReDim Preserve guideArray(1 To count + 1000)
                
                With guideArray(count)
                    .LayerIndex = lyr.Index
                    .PosX = g.PositionX
                    .PosY = g.PositionY
                    .Angle = g.Angle
                    
                    ' ガイド種別の判定
                    If Abs(g.Angle) < 0.001 Then
                        .GuideType = TYPE_VERTICAL
                    ElseIf Abs(g.Angle - 90) < 0.001 Then
                        .GuideType = TYPE_HORIZONTAL
                    Else
                        .GuideType = TYPE_ANGLED
                    End If
                    
                    ' 重要: 書き戻しのためにオブジェクト参照を保持
                    ' ただし、大量のオブジェクト保持はメモリを圧迫するため、
                    ' 非常に大規模な場合はレイヤーとインデックスのみを保持する手法に切り替える
                    Set .OriginalRef = g
                End With
            Next g
        End If
    Next lyr

    ' --- PHASE 2: Transform ---
    ' ここでは純粋な数学演算のみを行う。CorelDRAWへの干渉はゼロ。
    Dim i As Long
    Dim offsetX As Double: offsetX = 10.5 ' 例: X方向に10.5mmシフト
    Dim offsetY As Double: offsetY = -5.0 ' 例: Y方向に-5.0mmシフト

    For i = 1 To count
        Select Case guideArray(i).GuideType
            Case TYPE_VERTICAL
                guideArray(i).PosX = guideArray(i).PosX + offsetX
            Case TYPE_HORIZONTAL
                guideArray(i).PosY = guideArray(i).PosY + offsetY
            Case TYPE_ANGLED
                ' 斜めガイドの場合は、点(PosX, PosY)をベクトルとして移動
                guideArray(i).PosX = guideArray(i).PosX + offsetX
                guideArray(i).PosY = guideArray(i).PosY + offsetY
        End Select
    Next i

    ' --- PHASE 3: Load ---
    ' 計算結果をオブジェクトへ反映
    For i = 1 To count
        With guideArray(i).OriginalRef
            Select Case guideArray(i).GuideType
                Case TYPE_VERTICAL
                    .PositionX = guideArray(i).PosX
                Case TYPE_HORIZONTAL
                    .PositionY = guideArray(i).PosY
                Case TYPE_ANGLED
                    .PositionX = guideArray(i).PosX
                    .PositionY = guideArray(i).PosY
                    .Angle = guideArray(i).Angle
            End Select
        End With
        ' オブジェクト参照の明示的解放（メモリリーク防止）
        Set guideArray(i).OriginalRef = Nothing
    Next i

CleanUp:
    ' 2. パフォーマンス最適化の解除
    Optimization = False
    EventsEnabled = True
    Application.Refresh
    Exit Sub

ErrorHandler:
    MsgBox "Critical Error: " & Err.Description, vbCritical
    Resume CleanUp
End Sub

4. チーフアーキテクトの深層知見

このコードを実戦で運用するにあたり、シニアエンジニアが留意すべき「極限の知見」を3点記す。

① メモリ管理とオブジェクトのライフサイクル

上記のコードでは `OriginalRef` として `Guide` オブジェクトを保持している。これは高速化のためのトレードオフだ。数万個のガイドを扱う場合、これらすべてのオブジェクトへの参照を保持すると、VBAのメモリ空間が肥大化し、CorelDRAW自体が不安定になる。
真に大規模なシステムでは、オブジェクト自体を保持せず、`Layer.Index` と `Guide.Index` のみを変数として保持し、Loadフェーズで `doc.Layers(idx).Guides(gIdx)` として再取得する設計にすべきだ。 これにより、メモリ消費は最小限に抑えられる。

② Windows APIによる精密な時間計測

プロフェッショナルなツールには、実行時間の計測機能が不可欠だ。VBAの `Timer` 関数では精度が足りない場合がある。Windows APIの `QueryPerformanceCounter` を呼び出し、マイクロ秒単位でのプロファイリングを行うことで、アルゴリズムのボトルネックを正確に特定せよ。

③ レガシー環境への配慮

CorelDRAWのバージョンによっては、`Optimization` プロパティの挙動が微妙に異なる。また、古いVBAランタイムでは `ReDim Preserve` のコストが非常に高い。大規模な配列操作を行う際は、あらかじめ「予測される最大数」を `ReDim` で確保しておくことが、レガシー環境における鉄則である。

結論

ガイド線の操作を単なる「プロパティの書き換え」と捉えるか、「データ構造の変換プロセス」と捉えるか。この差が、数秒で終わるマクロにするか、数分間フリーズする欠陥プログラムにするかの境界線となる。

エンジニアリングの本質は、抽象化されたオブジェクトモデルの裏側に潜む、物理的な計算コストを制御することにある。貴殿のコードが、単なるスクリプトを超え、堅牢なアーキテクチャへと昇華することを期待する。