CorelDRAW VBAを掌握する：複数ファイルの一括ガイド線更新を完全自動化せよ
こんにちは。CorelDRAWの自動化の世界へようこそ。
「マクロの記録」ボタンを押して、生成されたコードの断片に溜息をついたことはありませんか？記録されたコードは、いわば「初心者が撮った手ブレ写真」のようなもの。実務の現場で戦うには、オブジェクトのライフサイクルを理解し、メモリを制御する「プロの視点」が必要です。
今回は、「大量のCDRファイルのガイド線を、一瞬で、かつ正確に更新する」という、実務で最も要望の多いタスクを題材に、VBAの本質を伝授します。
—
1. なぜ「非表示（Invisible）」で開くのか？
自動化の鉄則は「UIを殺すこと」です。画面を描画する処理は最も重い。`Application.OpenDocument`を普通に実行すると、PCはGUIの再描画にリソースを割いてしまい、数分かかる作業が数秒で終わるはずが、数十分かかることになります。
‘ 非表示で開くための極意
Set doc = Application.OpenDocument(filePath, False) ‘ 第2引数をFalseにするのが肝
これを活用すれば、深夜のバッチ処理でも安定して動作させることが可能です。
—
2. 実践：ガイド線一括更新プログラム
以下のコードは、指定したフォルダ内の全CDRファイルを順次開き、ガイド線を削除し、新しいガイド線を配置して上書き保存するプロフェッショナル仕様のスクリプトです。
Sub BatchUpdateGuidelines()
Dim fso As Object, folder As Object, file As Object
Dim doc As Document
Dim folderPath As String
‘ 1. ファイルシステムオブジェクトの設定
Set fso = CreateObject(“Scripting.FileSystemObject”)
folderPath = “C:\Your\Target\Folder\” ‘ 処理したいフォルダパス
Set folder = fso.GetFolder(folderPath)
‘ 2. 処理開始：画面描画を停止して高速化（重要！）
Application.Optimization = True
For Each file In folder.Files
If LCase(fso.GetExtensionName(file.Path)) = “cdr” Then
‘ 3. 非表示モードでドキュメントを開く
Set doc = Application.OpenDocument(file.Path, False)
‘ ガイド線更新処理を実行
Call UpdateGuidelinesInDoc(doc)
‘ 4. 上書き保存して閉じる
doc.Save
doc.Close
End If
Next file
‘ 処理終了：描画を再開
Application.Optimization = False
MsgBox “全ファイルのガイド線更新が完了しました。”
End Sub
Sub UpdateGuidelinesInDoc(doc As Document)
Dim p As Page
‘ 全ページに対して反復処理
For Each p In doc.Pages
‘ ガイド線をクリア（一旦リセットするのが最も安全）
p.Guides.All.Delete
‘ 新しいガイド線を配置（例：X=100mmに垂直ガイド）
p.AddGuide cdrVerticalGuide, 100
‘ 新しいガイド線を配置（例：Y=200mmに水平ガイド）
p.AddGuide cdrHorizontalGuide, 200
Next p
End Sub
—
3. ここをクリアすれば一人前！陥りやすい罠
① `Optimization` の重要性
`Application.Optimization = True` は、CorelDRAWの内部エンジンに対して「画面描画をサボれ」という命令です。これを書かないと、ファイルを開くたびにプレビューが走るため、数千ファイル規模になると致命的な遅延を生みます。
② `All.Delete` の罠
`p.Guides.All.Delete` は強力ですが、レイヤー構造によっては思わぬ影響が出る場合があります。もし「特定のレイヤーのガイドだけ消したい」という場合は、`p.Layers(“ガイド”).Guides.All.Delete` のように、レイヤーを明示的に指定する癖をつけてください。
③ メモリリークを避ける
VBAはオブジェクトの解放が甘くなりがちです。「開いたドキュメントは必ずCloseする」というライフサイクルを守りましょう。コードが途中で止まった場合でも、`doc` オブジェクトがメモリに残らないよう意識することが、安定稼働の秘訣です。
—
4. プロの視点：次の一手
このコードが理解できれば、あなたはもう「記録機能」に頼る必要はありません。次は、「特定のオブジェクトからガイド線の位置を取得する」といった、より高度なロジックを組み込んでみてください。
CorelDRAW VBAは、あなたの「手」を解放するための最強のツールです。深夜の残業を減らし、創造的な仕事に時間を使うために、このコードをあなたの武器にしてください。
何か不明点があれば、いつでも聞いてください。設計レベルからサポートしますよ。
