CorelDRAW VBAを掌握する極限の知見：非表示・ロックレイヤーを秒速でスキップする高速フィルタリングループの設計
こんにちは。開発プロジェクトの現場において、CorelDRAWの自動化を極限まで押し上げるチーフアーキテクトの私だ。
日々の業務で、数千、数万のオブジェクトが入り組んだ巨大なドキュメントを処理するVBAマクロを書いたことはないだろうか？ 「すべてのシェイプに対して処理を走らせたら、完了するまでにコーヒーブレイクどころかランチが終わってしまう」「なぜか途中でフリーズする」。そんな悪夢を経験したプログラマーも少なくないはずだ。
原因は明白だ。「人間が見ていない、触る必要すらないレイヤー（非表示・ロック）」まで丁寧にループで舐め回しているからである。
今回は、CorelDRAWのオブジェクトモデルの深淵に踏み込み、無駄な走査を極限まで排除してマクロの実行速度を何倍、何十倍へと跳ね上げる「高速フィルタリングループ」の設計手法を授けよう。
—
1. なぜ「力技の全走査（Brute Force）」は破綻するのか？
CorelDRAWのVBAにおいて、ドキュメント内のオブジェクトにアクセスするコストは、あなたが想像しているよりもはるかに高い。
一般的に、初心者が最初に書くコードはこのようなものだ。
‘ 【アンチパターン】絶対にやってはいけない全走査
Dim s As Shape
For Each s ActivePage.Shapes
‘ ユーザーが見ていない（非表示の）レイヤーのオブジェクトもここに到達する
‘ ロックされていて編集してはいけないオブジェクトもここに到達する
‘ 重い処理
s.Outline.Width = 0.5
Next s
このコードの何が問題か？
CorelDRAWの `ActivePage.Shapes` や `Layer.Shapes` は、ドキュメントの構造的な都合で存在するすべてのオブジェクトを容赦なく列挙する。非表示（Invisible）であろうが、ロック（Locked）されていなかろうが関係ない。
結果として、以下のような無駄なコストが発生する。
1. COM（Component Object Model）の境界を跨ぐオーバーヘッド：VBAからCorelDRAWの内部エンジンへアクセスするたびに、目に見えない通信コストが発生する。
2. メモリとCPUの無駄遣い：変更する必要すらなく、後続の処理でエラー（あるいは意図しないデータ破損）を引き起こすリスクのあるオブジェクトまで評価している。
プロフェッショナルなエンジニアであれば、「処理対象外のオブジェクトに触れること自体がバグの温床であり、パフォーマンスの殺人行為である」と知っていなければならない。
—
2. 堅牢かつ高速なフィルタリング設計の要諦
CorelDRAW VBAで高速かつ堅牢なループを構築するための鉄則は、極めてシンプルだ。
> 「レイヤー単位で門前払いし、オブジェクト単位の判定を最小限に抑えよ」
オブジェクト一つひとつに対して `.Visible` や `.Locked` を判定するループも書けなくはないが、それ以前に「レイヤー自体が非表示、またはロックされている」のであれば、そのレイヤーに属する数千のシェイプを一括してスキップするのが最も効率的である。
レイヤー・オブジェクトのライフサイクルとプロパティ
CorelDRAWのレイヤー（`Layer` オブジェクト）には、以下の極めて重要なプロパティが存在する。
- `Layer.Visible`: 画面上に描画されているか（`False` の場合、その中のシェイプを処理する必要性はほぼゼロ）
- `Layer.Locked`: ユーザー操作から保護されているか（自動化スクリプトであっても、誤編集を防ぐためにこのフラグを尊重すべきケースが多々ある）
- `Layer.Printable`: 印刷対象外のレイヤー（テンプレートやガイドライン用のレイヤーなど、出力系処理ではここもフィルタリング対象になる）
これらをループの最初（あるいはレイヤーのイテレーション時）に評価し、条件を満たさないものを華麗にスルーする構造を作る。
—
3. 【プロダクションコード】高速フィルタリング・ボイラープレート
現場の即戦力として、そのままコピー＆ペーストして組み込める堅牢なコードを提示しよう。このコードは、非表示レイヤーおよびロックレイヤーを完全にバイパスし、処理対象のオブジェクトだけを秒速で調理する。
‘ ==============================================================================
‘ Module: 業務効率化・高速シェイプ走査モジュール
‘ Purpose: 非表示・ロックレイヤーをスマートにスキップし、安全かつ高速に処理を行う
‘ ==============================================================================
Public Sub ProcessActiveDocumentOptimized()
Dim doc As Document
Set doc = ActiveDocument
‘ 1. 描画・画面更新の完全停止（パフォーマンス向上とチラつき防止の基本中の基本）
doc.BeginCommandGroup
ActiveWindow.ScreenRefresh = False
On Error GoTo ErrorHandler
Dim sh As Shape
Dim lyr As Layer
Dim processedCount As Long
processedCount = 0
‘ アクティブページの全レイヤーを走査
For Each lyr In doc.ActivePage.Layers
‘ ———————————————————————-
‘ 【フィルタリング 1】レイヤー単位での門前払い
‘ ———————————————————————-
‘ 非表示レイヤー、またはロックされているレイヤーは即座にスキップ
If Not lyr.Visible Then GoTo ContinueLayer
If lyr.Locked Then GoTo ContinueLayer
‘ 必要に応じて「印刷不可」レイヤーも除外する場合
‘ If Not lyr.Printable Then GoTo ContinueLayer
‘ ———————————————————————-
‘ レイヤー内のシェイプ走査
‘ ———————————————————————-
For Each sh In lyr.Shapes
‘ 【フィルタリング 2】個別のシェイプに対する微細なガード
‘ （グループ化された子要素や、特殊なガイドラインなどを弾く場合）
If sh.Type = cdrGuidelineShape Then GoTo ContinueShape
‘ ==================================================================
‘ 【実業務のメイン処理】ここに高速化したい処理を記述する
‘ 例：特定条件のシェイプのアウトラインカラーを赤に変更する
‘ ==================================================================
If sh.FullRectWidth > 100 Then ‘ 幅が100mmを超えるものなど
sh.Outline.Color.RGBAXColorAssign 255, 0, 0, 0
processedCount = processedCount + 1
End If
ContinueShape:
Next sh
ContinueLayer:
Next lyr
‘ 2. 終了処理
ActiveWindow.ScreenRefresh = True
doc.EndCommandGroup
MsgBox “処理が正常に完了しました。処理件数: ” & processedCount & “件”, vbInformation, “高速バッチ完了”
Exit Sub
ErrorHandler:
‘ 異常終了時の安全弁（画面更新がフリーズしたままになるのを防ぐ）
ActiveWindow.ScreenRefresh = True
doc.EndCommandGroup
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical, “致命的エラー”
End Sub
—
4. チーフアーキテクトが教える、現場で使える「さらなる一手」
上記のコードだけでも十分なパフォーマンスを発揮するが、真に洗練されたシステムを構築するためには、以下の実務的知見も頭に入れておいてほしい。
① `ActiveWindow.ScreenRefresh = False` の絶対的義務
CorelDRAWは、VBAからオブジェクトが1つ変更されるたびに、デフォルトでは画面の再描画を試みる。これが数千回繰り返されると、処理時間の9割が描画コストに消える。
必ず `ScreenRefresh = False` で描画を止め、処理が終わってから `True` に戻すこと。これを忘れるエンジニアはプロとは呼べない。
② エラーハンドリングにおける「安全弁」の確保
マクロの途中で予期せぬエラー（メモリ不足や不正なオブジェクト構造など）が発生した際、`ScreenRefresh = False` のままコードが停止すると、CorelDRAWの画面が一切再描画されなくなり、ユーザーは強制終了せざるを得なくなる。
必ず上記のコードのように `On Error GoTo` を設置し、異常系であっても確実に画面描画とコマンドグループを復旧させる設計にすること。
③ 外部データベースやファイル連携時の注意点
もしこの走査結果をExcelなどの外部データベースやCSVに吐き出す場合、レイヤー名やオブジェクト名をキーにすることが多い。
その際、非表示・ロックレイヤーをスキップしているこのロジックがそのまま「有効なマスターデータのみを抽出するフィルター」として機能する。ゴミデータ（隠しレイヤーの古いデザイン案など）がデータベースに混入するのを防ぐ、最強のガードとしても役立つはずだ。
—
結びに代えて
CorelDRAW VBAのパフォーマンスチューニングは、突き詰めれば「にいかに無駄な命令を発行しないか」という引き算の美学だ。
今回紹介した「非表示・ロックレイヤーの高速フィルタリングループ」は、明日からの開発ですぐに使える強力な武器となる。あなたの書くマクロが、重苦しい亀の歩みから、風を切り裂くような圧倒的なスピードへと生まれ変わることを約束しよう。
コードに魂を込めろ。そして、退屈な反復作業をテクノロジーで駆逐せよ。
