CorelDRAW VBAを掌握する極限の知見：ガイド線の座標を「資産」に変えるバックアップ術
こんにちは。現場の自動化を支えるエンジニアとして、日々コードと向き合っている皆さん。
CorelDRAWでのデザイン業務、お疲れ様です。
「マクロの記録」を使って、なんとか作業を自動化しようと試行錯誤している……。もしあなたが今、そんな段階にいるとしたら、おめでとうございます。あなたは今、「手作業の自動化」から「システムによる制御」へと脱皮するための入り口に立っています。
マクロの記録は、いわば「歩行の練習」です。しかし、実務で求められるのは、複雑なオブジェクトの階層を理解し、データの流れを制御する「プロフェッショナルな設計」です。
今日は、その第一歩として、非常に実用的かつ、VBAの基礎概念が凝縮されたテーマに挑戦しましょう。
テーマは、「ページ内のすべてのガイド線の座標データをCSV形式で書き出す」ツールです。
「たかがガイド線の位置を出すだけでしょ？」と思わないでください。この小さなコードの中に、CorelDRAW VBAを使いこなすための「オブジェクトの階層構造」「単位の制御」「ファイルI/O（入出力）」という、極めて重要なエッセンスが詰まっているのです。
なぜ「ガイド線の書き出し」が必要なのか？
デザインの現場では、レイアウトの微調整を繰り返します。しかし、クライアントからの修正指示で「以前のレイアウトに戻してほしい」「このガイド線の位置を正確に別のドキュメントでも再現してほしい」と言われることは珍しくありません。
ガイド線は、ドキュメントの「設計図」です。この設計図をテキストデータ（CSV）として外部に持っておくことができれば、以下のようなことが可能になります。
1. 履歴管理: レイアウト変更の前後で、ガイドがどう動いたかを比較できる。
2. 他ソフトへの移行: Excelなどで座標を管理し、設計の根拠として活用できる。
3. 自動再配置: 別のドキュメントに対して、保存したCSVを読み込んでガイドを自動生成する（これは次のステップですね）。
さあ、準備はいいですか？ コードの海へ飛び込む前に、まずは「構造」を理解しましょう。
1. CorelDRAWの「設計図」を読み解く：オブジェクト階層
VBAを書く上で最も大切なのは、「どのオブジェクトが、どこに属しているか」を把握することです。CorelDRAWの構造を、大きな箱から小さな箱へと分解してみましょう。
- Application (CorelDRAWそのもの)
- Document (開いているファイル)
- Page (ドキュメント内の各ページ)
- Guides (そのページに引かれているガイド線の集まり)
- Guide (個々のガイド線：垂直か水平か、位置はどこか)
今回のミッションは、「Documentの中にある全てのPageを巡回し、そのPageの中にある全てのGuideを一つずつ調べて、座標を書き出す」ことです。この「巡回（ループ）」こそが、自動化の心臓部です。
2. 実践：ガイド線書き出しVBAコード
それでは、魂を込めて書いたコードを見ていきましょう。初心者の方でも迷わないよう、丁寧にコメントを添えています。
Option Explicit
''' <summary>
''' ドキュメント内のすべてのガイド線の座標をCSVファイルに書き出すマクロ
''' </summary>
Sub ExportAllGuidesToCSV()
Dim doc As Document
Dim pg As Page
Dim g As Guide
Dim filePath As String
Dim fileNum As Integer
Dim unitType As cdrUnit
' 1. セットアップ
Set doc = ActiveDocument
' ドキュメントが開かれていない場合は終了
If doc Is Nothing Then
MsgBox "ドキュメントが開かれていません。", vbCritical
Exit Sub
End If
' 書き出し単位を「ミリメートル」に固定（重要！）
' CorelDRAWの内部単位ではなく、人間が理解しやすい単位で出力します
unitType = cdrMillimeter
' 2. 保存先ファイルの指定
' ここではデスクトップに「GuideBackup.csv」という名前で保存する設定にしています
' 実務では FileSaveAsDialog などを使ってユーザーに選ばせるのが理想的です
filePath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\GuideBackup.csv"
' 3. ファイルの準備
fileNum = FreeFile ' 使用可能なファイル番号を取得
' 書き込みモードでファイルを開く
Open filePath For Output As #fileNum
' CSVのヘッダー（見出し）を書き込む
Print #fileNum, "PageIndex,Orientation,Position(mm)"
' 4. メインループ：全ページを巡回
On Error GoTo ErrorHandler ' エラーハンドリングの開始
For Each pg In doc.Pages
' 各ページ内の全ガイド線を巡回
For Each g In pg.Guides
' ガイドの向き（垂直か水平か）と位置を取得
' Positionプロパティは、現在のドキュメント単位に依存するため、
' 明示的にミリメートルに変換して出力するテクニックを用います
Dim posVal As Double
Dim orientStr As String
' 向きの判定
If g.Orientation = cdrVerticalGuide Then
orientStr = "Vertical"
Else
orientStr = "Horizontal"
End If
' 位置の取得と単位変換
' g.Position をミリメートル単位の値に変換して取得
' (CorelDRAWのAPIは内部的な数値を持つため、変換処理が肝です)
posVal = doc.ToUnits(g.Position, unitType)
' CSV形式で一行書き出し (ページ番号, 向き, 座標)
Print #fileNum, pg.Index & "," & orientStr & "," & Round(posVal, 3)
Next g
Next pg
' 5. 後処理
Close #fileNum
MsgBox "ガイド線の書き出しが完了しました！" & vbCrLf & "保存先: " & filePath, vbInformation
Exit Sub
ErrorHandler:
' エラーが発生した場合の処理
Close #fileNum
MsgBox "エラーが発生しました: " & Err.Description, vbCritical
End Sub3. プロの視点：ここをクリアすれば、VBAの基本はバッチリ！
コードをただコピペするだけでは、エンジニアへの道は遠いです。このコードの中に隠された「プロの知恵」を解説します。ここを理解すれば、あなたのコードの質は劇的に上がります。
① 単位（Unit）の罠を回避する
ここが最も重要なポイントです。CorelDRAW VBAの世界では、座標値が「インチ」で返ってくるのか「ピクセル」で返ってくるのかは、その時々のドキュメント設定に依存します。
もし、設定がインチのドキュメントで実行して、CSVに `0.5` と書かれていたら？ それが `0.5mm` なのか `0.5inch` なのか、後で使う時に混乱しますよね。
コード内の `doc.ToUnits(g.Position, unitType)` という部分は、「どんな設定のドキュメントであっても、強制的にミリメートルとして解釈させる」という、堅牢な設計のための儀式です。
② `For Each` によるオブジェクトの走査
`For i = 1 To 10` のような数字によるループではなく、`For Each pg In doc.Pages` のようにオブジェクトそのものを直接扱う手法を使いましょう。これにより、「ページがいくつあるか」を事前に数える必要がなくなり、コードがシンプルかつ高速になります。
③ エラーハンドリング（ErrorHandler）
実務で使うツールにエラー対策は必須です。もしファイルがExcelで開かれていて書き込めなかった場合、プログラムが突然止まってしまうとユーザーは困惑します。`On Error GoTo ErrorHandler` を記述することで、「何が起きたのか」を優しく教えてあげることができるのです。
まとめ：次は「自動生成」へ
お疲れ様でした！ これであなたは、CorelDRAW内の不可視な情報を、外の世界（CSV）へと繋ぎ出す術を手に入れました。
今回の学びのポイント：
1. オブジェクトの階層（Document > Page > Guide）を意識すること。
2. 単位の制御（ToUnits）で、データの整合性を守ること。
3. エラーハンドリングで、道具としての信頼性を高めること。
このCSVさえあれば、次は「CSVを読み込んで、全く同じ位置にガイドを自動配置するマクロ」を作ることも夢ではありません。
一歩ずつ、着実に。
マクロの記録から卒業し、コードでCorelDRAWを支配する楽しさを、ぜひ味わってください。応援していますよ！
