CorelDRAW VBAを掌握せよ：レイヤー整理を自動化して「手作業の地獄」から脱出する
こんにちは。CorelDRAWの自動化の世界へようこそ。
日々、何層にも重なったオブジェクトを一つずつクリックし、レイヤーを移動させる……そんな「単純作業」に時間を奪われていませんか？
CorelDRAWの自動化を志すあなたが最初にぶつかる壁、そしてそれを乗り越えた瞬間に見える景色は、「手作業＝0秒」の生産性です。今日は、プロの現場でも頻繁に使われる「オブジェクトのレイヤー移動」を題材に、VBAの真髄を伝授します。
—
1. なぜ「手作業」をやめる必要があるのか？
マクロの記録機能は便利ですが、あれはあくまで「入門」です。記録されたコードは冗長で、エラーに弱く、応用が利きません。
今回学ぶ「選択したオブジェクトを指定レイヤーへ飛ばす」技術は、CorelDRAWのオブジェクト構造（DOM：Document Object Model）を正しく理解するための第一歩。ここをクリアすれば、あなたは「ツールを使う人」から「ツールを作る人」へと進化します。
—
2. 核心を突くコード：選択物を一瞬で指定レイヤーへ
以下のコードは、現在選択している全てのオブジェクトを、指定した名前のレイヤーへ強制的に移動させます。
Sub MoveSelectedToLayer()
Dim doc As Document
Dim targetLayer As Layer
Dim shp As Shape
Dim targetLayerName As String
‘ 1. 対象のレイヤー名を定義
targetLayerName = “完成用レイヤー”
Set doc = ActiveDocument
‘ 2. 指定レイヤーが存在するかチェック（エラー防止の鉄則）
On Error Resume Next
Set targetLayer = doc.ActivePage.Layers(targetLayerName)
On Error GoTo 0
‘ レイヤーがない場合は作成する親切設計
If targetLayer Is Nothing Then
Set targetLayer = doc.ActivePage.CreateLayer(targetLayerName)
End If
‘ 3. 選択されているオブジェクトを一つずつ処理
‘ ActiveSelectionRange を使うことで、効率的に全選択物へアクセス
For Each shp In doc.SelectionRange
‘ MoveToLayer メソッドでレイヤーを移動
shp.MoveToLayer targetLayer
Next shp
MsgBox “移動完了！お疲れ様でした。”, vbInformation
End Sub
—
3. コードの「裏側」を読み解く
初心者の方が陥りやすい罠と、それを回避する「プロの視点」を解説します。
① `On Error Resume Next` の正しい使い方
VBAで一番怖いのは「存在しないレイヤーを指定してエラーで止まること」です。あえてエラーを無視し、その後に「レイヤーが取得できたか？」を `If targetLayer Is Nothing` で判定する。これが、堅牢なプログラムを書くための第一歩です。
② `SelectionRange` の活用
単なる `Selection` ではなく `SelectionRange` を使うのがポイントです。これにより、複数のオブジェクトが選択されている場合でも、漏れなく高速にループ処理（反復処理）を行うことができます。
③ `MoveToLayer` の強力さ
CorelDRAW VBAにおいて、オブジェクトの所属先を変えるのは非常にシンプルです。`Shape` オブジェクトに対してこのメソッドを呼ぶだけで、内部的な階層構造をCorelDRAWが勝手に再計算してくれます。
—
4. 陥りやすいエラーと対策
- 「オブジェクトが選択されていません」というエラー
- 対策：`If doc.SelectionRange.Count = 0 Then Exit Sub` のように、処理の冒頭で「選択物があるか」をチェックする癖をつけましょう。
- レイヤー名が微妙に違う（スペースの有無など）
- 対策：手入力ではなく、`targetLayerName = “完成用レイヤー”` のように定数としてコードの冒頭にまとめておくと、修正が非常に楽になります。
—
5. 次のステップへ：自動化エンジニアへの道
このコードが動いたなら、あなたはもうCorelDRAWの内部構造を操作する力を手にしました。
次は、「特定の名前を含むレイヤーだけを非表示にする」や「すべてのページにある特定のレイヤーを一括で削除する」といった応用が可能です。これらは、今回学んだ `For Each` ループの応用で全て実現できます。
「もっと楽に、もっと正確に」。
CorelDRAW VBAは、あなたの時間を奪うのではなく、あなたに「クリエイティブな時間」を取り戻すための最強のパートナーです。
何か分からないことや、さらに高度な自動化への野望があれば、いつでも聞いてください。あなたの自動化ライフを全力でサポートします。
