【入門編】【初心者向け】Layerオブジェクトの非表示・ロック状態を安全に判定してエラーを回避する条件分岐の書き方 – CorelDRAW VBA解析バイブル

CorelDRAW VBA

2026.08.26

CorelDRAW VBAで「エラー」を卒業する！Layerオブジェクトの安全な扱い方

こんにちは。CorelDRAWの自動化の世界へようこそ。
「マクロの記録」ボタンを押して生成されたコードを眺め、いざ自分で編集しようとして「ランタイムエラー」の洗礼を受けたことはありませんか？

特にLayer（レイヤー）操作は、自動化の現場で最も頻繁にエラーが発生するポイントです。なぜなら、「ロックされているレイヤーを無理やり編集しようとした」り、「非表示のレイヤーを操作しようとした」りするだけで、CorelDRAWは容赦なく処理を中断させるからです。

今日は、そんなエラーを未然に防ぎ、あなたのマクロを「止まらないプロ仕様」へと引き上げるための安全な条件分岐の極意を伝授します。

—

CorelDRAWのオブジェクトモデルにおいて、Layerは単なる入れ物ではありません。そこには「編集可能か？（Locked）」という状態と、「見えているか？（Visible）」という状態が厳格に管理されています。

VBAでコードを書く際、私たちはつい「レイヤーAの中にある図形を動かせ」という命令だけを出しがちです。しかし、もしそのレイヤーがロックされていたら？――CorelDRAWは「編集権限がないぞ！」と怒ってエラーを吐くのです。

—

エラーを回避する唯一の方法は、操作を実行する前に、そのレイヤーの状態をVBAで「確認」することです。

以下のコードは、操作対象のレイヤーが編集可能かどうかを判定する、最も基本的かつ強力なパターンです。

Sub SafeLayerOperation()
Dim doc As Document
Dim lyr As Layer

Set doc = ActiveDocument
‘ 現在アクティブなレイヤーを取得
Set lyr = doc.ActiveLayer

‘ 【重要】操作前に「ロック」と「非表示」をチェックする
If lyr.Locked = True Then
MsgBox “このレイヤーはロックされています。解除してから実行してください。”
Exit Sub ‘ 処理を安全に終了
End If

If lyr.Visible = False Then
MsgBox “このレイヤーは非表示です。表示状態にしてから実行してください。”
Exit Sub
End If

‘ ここまでくれば安全！安心して命令を実行できる
lyr.CreateRectangle 0, 0, 10, 10
MsgBox “図形を作成しました。”
End Sub

—

毎回「ロックされています」とメッセージを出すのも親切ですが、プロのエンジニアは「必要なら自動で解除する」というアプローチも取り入れます。

「編集したいなら、自分でロックを外して、作業が終わったら元に戻す」。これができると、マクロの利便性が飛躍的に向上します。

Sub SmartLayerOperation()
Dim lyr As Layer
Set lyr = ActiveDocument.ActiveLayer

Dim originalLockedState As Boolean
originalLockedState = lyr.Locked

‘ ロックされていたら一時的に解除する
If originalLockedState = True Then
lyr.Locked = False
End If

‘ ここで安全に操作を実行
‘ (例: 図形のプロパティを変更するなど)

‘ 作業が終わったら、元のロック状態に戻す（配慮が大切！）
If originalLockedState = True Then
lyr.Locked = True
End If
End Sub

—

初心者の方がよくやってしまうミスが、「ActiveLayerを過信すること」です。
ユーザーが意図しないレイヤーを選択している場合、マクロが予期せぬ場所で動いてしまいます。

‘ 名前でレイヤーを特定して取得する安全な例
Dim myLayer As Layer
Set myLayer = ActivePage.Layers(“加工用レイヤー”)

If myLayer Is Nothing Then
MsgBox “対象のレイヤーが見つかりません！”
Exit Sub
End If

—

今回紹介した「条件分岐によるチェック」は、どんなに複雑な自動化ツールを作るときでも必ず使う基本の「型」です。

1. 状態をチェックする（Locked / Visible）
2. ダメならユーザーに知らせるか、自分で直す
3. 安全を確認してから処理を実行する

この3ステップを意識するだけで、あなたの書くVBAコードは劇的に安定します。エラーに悩まされるのではなく、エラーを未然に防ぐ「設計者」の視点を持ってください。

ここをクリアすれば、あなたはもう初心者ではありません。CorelDRAW VBAの深淵へ、自信を持って踏み出していきましょう！応援しています。