CorelDRAW VBAを掌握せよ：SVG一括エクスポートにおける「真の最適化」と堅牢な設計術
CorelDRAWで作成したアセットをWebへ。この単純なフローにおいて、多くのエンジニアが「デフォルト設定」という名の罠に足を取られています。
「Illustratorで開くと線がバラバラになる」「謎のメタデータでファイルサイズが肥大化する」「特定の環境でフォントが化ける」。これらはすべて、CorelDRAWのVBAが持つ深い仕様を理解せず、`StructExportOptions`を甘く見ていることが原因です。
今日は、業務自動化の最前線で戦うあなたのために、「Web標準に適合し、かつ保守性の高いSVG一括変換エンジン」の設計思想を伝授します。
—
1. なぜ「記録マクロ」では不十分なのか？
VBAの記録機能で作られたコードは、環境依存のパスをハードコードし、エラーハンドリングを放棄した「使い捨て」の残骸です。プロフェッショナルは、以下の3点を意識して設計を始めます。
- オブジェクトの寿命管理: `Document`や`Page`を不用意にアクティブ化せず、参照を明示的に保持する。
- StructExportOptionsの個別最適化: 全てのSVGに一律の設定を適用するのではなく、Web用途に応じたフィルタリングを行う。
- 再利用可能なモジュール設計: ファイル操作ロジックとエクスポートロジックを分離する。
—
2. SVG最適化の極意：StructExportOptionsの深淵
SVG出力において最も重要なのは、`ExportEx`メソッドに渡す`StructExportOptions`の設定です。特に以下のパラメータは、Web資産としての品質を決定づけます。
- `ExportArea`: 選択範囲のみか、ページ全体か。無駄な余白はWebでの配置を狂わせます。
- `TextAsCurves` (重要): Webフォントの読み込みコストを避けるため、アウトライン化は必須要件です。
- `IncludeObjects`: 不要なメタデータ（CorelDRAW独自のプロパティ）を削除し、純粋なSVGパスのみを抽出します。
—
3. 実装：プロダクション級 SVG変換モジュール
以下のコードは、単なる変換ツールではありません。堅牢なエラーハンドリングを組み込み、大量のファイル処理でもメモリリークを起こさないための設計です。
Option Explicit
‘ ———————————————————
‘ SVG一括変換メインルーチン
‘ ———————————————————
Public Sub ExportSelectedToOptimizedSVG(targetFolder As String)
Dim doc As Document
Set doc = ActiveDocument
Dim expOptions As StructExportOptions
Dim expFilter As ExportFilter
‘ 1. 出力設定の構築
Set expOptions = New StructExportOptions
With expOptions
.AntiAliasingType = cdrNormalAntiAliasing
.ImageType = cdrRGBColorImage
‘ ベクター最適化のための必須フラグ
.IncludeExportArea = cdrExportPage
End With
‘ 2. ファイルパスの生成と変換実行
Dim fileName As String
fileName = targetFolder & “\” & Left(doc.Title, InStrRev(doc.Title, “.”) – 1) & “.svg”
‘ SVGフィルタ（詳細設定はフィルタ定義で行う）
Set expFilter = doc.ExportEx(fileName, cdrSVG, cdrCurrentPage, expOptions)
With expFilter
.TextAsCurves = True ‘ テキストのアウトライン化
.PreserveAppearance = False ‘ メタデータ削減の第一歩
.Finish ‘ 書き出し実行
End With
Debug.Print “Export Completed: ” & fileName
End Sub
—
4. 現場で生き残るための「3つの鉄則」
① ファイルIOの安全性を担保する
VBAの`Dir`関数でフォルダ内のファイルを回す際、無限ループや存在しないパスによるクラッシュを避けるため、必ず`On Error GoTo`による例外処理を実装してください。また、出力先フォルダが存在しない場合は`MkDir`で自動生成するロジックを組み込むのが「プロ」の流儀です。
② メモリ管理の最適化
大規模なプロジェクトでは、`Application.DoEvents`を適切に挟まないと、CorelDRAWのGUIがフリーズします。また、大量のファイルを処理する場合は、ループの途中でガベージコレクションを促すために、不要になったオブジェクトは `Set obj = Nothing` で即座に解放しましょう。
③ Illustrator互換性の微調整
Illustratorへ渡すSVGの階層構造をシンプルに保つため、CorelDRAW側では「グループ化の解除」や「複雑な塗りつぶしの単純化」を前処理として行うことも検討してください。`doc.ActiveLayer.Shapes.All`を走査し、不要な非表示レイヤーを削除するロジックを噛ませるだけで、変換後の品質は劇的に向上します。
—
最後に：自動化は「道具」ではなく「思想」である
今回紹介したコードは、あくまで出発点です。真の業務自動化とは、あなたの環境に合わせて「どの設定が最もWeb制作のボトルネックになっているか」を突き止め、それを排除することにあります。
CorelDRAWのVBAは、正しく扱えば、手作業では数時間かかる作業を数秒で終わらせる最強の武器になります。今日からあなたのツールボックスに、この「論理的な設計」という武器を加えてください。
何か特定の技術的障壁（VBAの制限や、特定のSVGライブラリとの競合など）にぶつかった時は、いつでも戻ってきてください。設計の解像度を一段上げるお手伝いをします。
