【入門編】【初心者向け】レイヤー名義の部分一致検索を行い、該当するレイヤーの存在有無をイミディエイトウィンドウに真偽値で返す – CorelDRAW VBA解析バイブル

【初心者必見】CorelDRAW VBAでレイヤー名を安全に検索！部分一致で存在確認する神テクニック

皆さん、CorelDRAW VBAの世界へようこそ！伝説の自動化エンジニアがお届けする、あなたのマクロ開発を次のレベルへ引き上げるための実践的な知識。今回は、大量のレイヤーの中から目的のレイヤーを「名前の一部」で安全に見つけ出す方法を、基礎から丁寧に解説していきます。

マクロの記録機能だけでは物足りない、もっと自在にCorelDRAWを操りたい！そう思っているあなた。このページを読み終える頃には、レイヤー操作の基本がバッチリ身についているはずです。さあ、一緒にCorelDRAW VBAの奥深い世界へ飛び込みましょう！

なぜレイヤー名の検索が重要なのか？

CorelDRAWで複雑なデザインを作成する際、レイヤーを細かく分けて管理するのは、もはや必須のテクニックですよね。しかし、レイヤーの数が増えれば増えるほど、目的のレイヤーを探すのが大変になってきます。

「あれ？『背景』って名前のレイヤーはあったっけ？」
「『図形01』と『図形_01』、どっちが本命だったかな？」

こんな時、レイヤー名で検索できれば、作業効率は格段にアップします。さらに、単に名前が一致するかどうかだけでなく、「部分一致」で検索できれば、さらに柔軟な対応が可能になります。例えば、「画像」というキーワードで検索すれば、「背景画像」「人物画像」「商品画像」といった関連レイヤーをまとめて見つけ出すことができます。

そして何より大切なのが、「エラーを出さずに安全に判定する」ということです。存在しないレイヤーを無理に操作しようとすると、プログラムはエラーで停止してしまいます。これを避けるための、VBAならではの「安全な条件分岐」の考え方も、ここでしっかりマスターしましょう。

CorelDRAW VBAの基本：レイヤーコレクションとオブジェクト

CorelDRAW VBAでは、ドキュメント内のすべてのレイヤーは `Layers` コレクションという形で管理されています。このコレクションを操作することで、レイヤーの追加、削除、名前の変更、そして今回のテーマである検索などが可能になります。

各レイヤーは `Layer` オブジェクトとして表現されます。この `Layer` オブジェクトには、名前 (`Name` プロパティ)、表示・非表示の状態 (`Visible` プロパティ)、ロック状態 (`Locked` プロパティ) など、様々な情報が格納されています。

全てのレイヤーをループで確認する基本コード

まずは、ドキュメント内の全てのレイヤーの名前をイミディエイトウィンドウに表示させる基本的なコードを見てみましょう。

Sub ListAllLayerNames()

Dim lyr As Layer ‘ 各レイヤーを格納するための変数
Dim doc As Document ‘ 現在アクティブなドキュメントを格納するための変数

‘ 現在アクティブなドキュメントを取得
Set doc = ActiveDocument

‘ ドキュメント内の全てのレイヤーをループ処理
For Each lyr In doc.Layers
‘ イミディエイトウィンドウにレイヤー名を表示
Debug.Print lyr.Name
Next lyr

End Sub

コードの解説:

• `Dim lyr As Layer`: `lyr` という名前の変数を、CorelDRAWの `Layer` オブジェクトとして宣言しています。これにより、ループの中で各レイヤーを `lyr` に代入して操作できるようになります。
• `Dim doc As Document`: `doc` という名前の変数を、CorelDRAWの `Document` オブジェクトとして宣言しています。
• `Set doc = ActiveDocument`: 現在開いている、アクティブなドキュメントを `doc` 変数に代入しています。
• `For Each lyr In doc.Layers`: `doc.Layers` は、ドキュメント内の全てのレイヤーの集合体（コレクション）です。この `For Each` ループは、コレクション内の各要素（ここでは各 `Layer` オブジェクト）に対して、指定された処理を順番に実行します。`lyr` には、ループの各回で異なるレイヤーオブジェクトが代入されます。
• `Debug.Print lyr.Name`: `Debug.Print` は、イミディエイトウィンドウ（Ctrl+Gで表示・非表示を切り替えられます）に文字列を出力するための命令です。`lyr.Name` は、現在のレイヤーオブジェクトの名前を取得しています。
• `Next lyr`: `For Each` ループの次の繰り返しに進むための命令です。

このコードを実行すると、イミディエイトウィンドウに現在開いているドキュメントの全てのレイヤー名が1行ずつ表示されます。

部分一致検索の心臓部：`InStr` 関数

さて、いよいよ本題の部分一致検索です。VBAには、文字列の中に別の文字列が含まれているかどうかを判定するための便利な関数があります。それが `InStr` 関数です。

`InStr([start, ]string1, string2[, compare])`

• `string1`: 検索対象の文字列（ここではレイヤー名）
• `string2`: 検索したい部分文字列（ここでは検索キーワード）

`InStr` 関数は、`string2` が `string1` の中に見つかった場合、その位置（開始位置からの何文字目か）を数値で返します。もし見つからなかった場合は、`0` を返します。

これを利用することで、「レイヤー名に特定の文字列が含まれているか？」を判定できるのです。

安全なレイヤー存在判定：`IsEmpty` や `IsNull` は使わない！

ここで、初学者が陥りやすい落とし穴について触れておきましょう。VBAで「存在するかどうか」を判定する際に、`IsEmpty` や `IsNull` といった関数を思い浮かべるかもしれません。しかし、これらの関数は、変数が初期化されていない場合や `Null` 値の場合に `True` を返しますが、CorelDRAWの `Layer` オブジェクトのように、存在することが前提のオブジェクトに対しては、期待通りの結果を返さないことが多いのです。

では、どうすれば安全に判定できるのでしょうか？それは、「エラーハンドリング」と「`On Error Resume Next` の賢い使い方」なのです。

`On Error Resume Next` は、エラーが発生してもプログラムを停止させずに、次の行に進むように指示する命令です。これを一時的に使用し、エラーが発生するかどうかでオブジェクトの存在を判定します。

【実践】レイヤー名部分一致検索＆存在有無判定コード

それでは、これらの知識を統合して、目的のレイヤーがドキュメント内に存在するかどうかを、レイヤー名の一部で判定するVBAコードを作成しましょう。

Sub CheckLayerByNamePartialMatch(searchKeyword As String)

Dim lyr As Layer ‘ 各レイヤーを格納するための変数
Dim doc As Document ‘ 現在アクティブなドキュメントを格納するための変数
Dim foundLayer As Boolean ‘ 該当レイヤーが見つかったかどうかを示すフラグ
Dim searchResult As Integer ‘ InStr関数の戻り値を格納する変数

‘ 初期化
foundLayer = False ‘ 最初は見つかっていない状態にする

‘ 現在アクティブなドキュメントを取得
Set doc = ActiveDocument

‘ エラーが発生しても処理を続行するように設定（一時的）
‘ これにより、存在しないオブジェクトにアクセスしようとした際のエラーを回避します。
On Error Resume Next

‘ ドキュメント内の全てのレイヤーをループ処理
For Each lyr In doc.Layers
‘ 検索キーワードがレイヤー名に含まれているか判定
‘ InStr関数は、string2 が string1 に含まれていればその位置（1以上）を返し、
‘ 含まれていなければ 0 を返します。
searchResult = InStr(1, lyr.Name, searchKeyword, vbTextCompare) ‘ vbTextCompareで大文字小文字を区別しない比較

‘ searchResult が 0 より大きい（つまり、searchKeyword が lyr.Name に含まれている）場合
If searchResult > 0 Then
foundLayer = True ‘ 該当レイヤーが見つかったフラグを立てる
‘ 見つかったら、それ以上検索する必要はないのでループを抜ける
Exit For
End If
Next lyr

‘ エラーハンドリングを元に戻す（重要！）
‘ これをしないと、後続のコードで予期せぬエラーが発生する可能性があります。
On Error GoTo 0 ‘ または On Error GoTo ErrorHandler （エラーハンドラを設定する場合）

‘ 結果をイミディエイトウィンドウに表示
Debug.Print “検索キーワード: ‘” & searchKeyword & “‘”
Debug.Print “該当するレイヤーは見つかりましたか？ (True/False): ” & foundLayer

End Sub

‘ — 実行例 —
Sub RunCheckLayerByNamePartialMatch()
‘ 例1: “画像” というキーワードで検索
CheckLayerByNamePartialMatch “画像”

‘ 例2: “図形” というキーワードで検索
CheckLayerByNamePartialMatch “図形”

‘ 例3: 存在しない可能性のあるキーワードで検索
CheckLayerByNamePartialMatch “非表示レイヤー”
End Sub

コードの解説:

1. 引数と変数宣言:

• `searchKeyword As String`: このプロシージャに渡される、検索したいキーワードです。
• `foundLayer As Boolean`: 該当するレイヤーが見つかったかどうかを記録する真偽値変数です。初期値は `False` です。
• `searchResult As Integer`: `InStr` 関数の結果を一時的に格納します。

2. `On Error Resume Next` の魔法:

• `On Error Resume Next` をループの前に置くことで、もし `doc.Layers` コレクション自体が空であったり、何らかの理由でレイヤーオブジェクトにアクセスできなかった場合でも、エラーでプログラムが止まらなくなります。
• ここが重要: この命令は、一時的に、そして必要な範囲だけ使用するのが鉄則です。コードの最後に `On Error GoTo 0` を置くことで、通常の（エラー発生時に停止する）エラーハンドリングに戻しています。これを忘れると、意図しないところでエラーが無視されてしまい、デバッグが非常に困難になります。

3. `InStr` で部分一致判定:

• `searchResult = InStr(1, lyr.Name, searchKeyword, vbTextCompare)`:
• `1`: 検索を開始する位置を指定します。通常は `1` で、文字列の最初から検索します。
• `lyr.Name`: 検索対象の文字列（現在のレイヤー名）。
• `searchKeyword`: 検索したい部分文字列。
• `vbTextCompare`: 大文字・小文字を区別せずに比較します。もし区別したい場合は `vbBinaryCompare` を指定します。
• `If searchResult > 0 Then`: `InStr` が `0` 以外の値を返した場合（つまり、`searchKeyword` が `lyr.Name` の中に見つかった場合）、`foundLayer` を `True` に設定します。

4. `Exit For` で効率化:

• `Exit For`: 目的のレイヤーが一つでも見つかったら、それ以上ループを続ける必要はありません。この命令でループを早期に終了させ、処理の無駄を省きます。

5. 結果の表示:

• 最後に、検索キーワードと、見つかったかどうかの結果（`True` または `False`）をイミディエイトウィンドウに表示します。

実際に動かしてみよう！

このコードをCorelDRAWのVBAエディタ（Alt+F11）に貼り付け、`RunCheckLayerByNamePartialMatch` プロシージャを実行してみてください。イミディエイトウィンドウに、検索結果が表示されるはずです。

例えば、以下のようなレイヤー構成のドキュメントがあったとします。

• `背景`
• `図形_01`
• `画像_人物`
• `テキスト`
• `画像_商品`

`CheckLayerByNamePartialMatch “画像”` を実行すると、イミディエイトウィンドウには以下のように表示されます。

検索キーワード: ‘画像’
該当するレイヤーは見つかりましたか？ (True/False): True

`CheckLayerByNamePartialMatch “図形”` を実行すると、

検索キーワード: ‘図形’
該当するレイヤーは見つかりましたか？ (True/False): True

`CheckLayerByNamePartialMatch “非表示レイヤー”` を実行すると、

検索キーワード: ‘非表示レイヤー’
該当するレイヤーは見つかりましたか？ (True/False): False

のように、期待通りの結果が得られます。

この知識をどう活かす？

この「レイヤー名部分一致検索＆存在有無判定」のテクニックは、様々な応用が可能です。

• 特定のレイヤーが存在する場合のみ、そのレイヤーをアクティブにする。
• 指定したキーワードを持つレイヤーの数だけカウントする。
• 存在しない場合に、新しいレイヤーを作成する。
• 既存のレイヤーを操作する前に、必ず存在確認を行う。

これらの処理を組み合わせることで、より安全で、より高機能なマクロを作成できるようになります。

まとめ：安全なコーディングへの第一歩

今回は、CorelDRAW VBAにおけるレイヤー名の部分一致検索と、その安全な存在判定方法について解説しました。

• `Layers` コレクションと `Layer` オブジェクトの基本。
• 文字列検索に強力な `InStr` 関数の活用法。
• エラーハンドリング (`On Error Resume Next`) を使った、安全なオブジェクト存在判定の重要性。
• 効率化のための `Exit For` の利用。

これらの要素を理解し、実践することで、あなたのCorelDRAW VBAスキルは確実に向上します。特に、`On Error Resume Next` の使いどころと、その後の `On Error GoTo 0` で元に戻すことを忘れないようにしてください。これが、予期せぬエラーを防ぎ、安定したマクロを作成するための、最も重要な習慣となります。

さあ、この知識を武器に、あなただけの便利なマクロをどんどん作っていきましょう！CorelDRAW VBAの世界は、まだまだ奥深く、探求しがいのある領域が広がっていますよ。応援しています！