前回の記事で、VBSからIllustratorが操作できることを紹介しましたが、今回はIllustratorに登録されたPDFプリセットを列挙するスクリプトを紹介します。
下記スクリプトはIllustratorが起動済みであることを前提としています。Illustratorの起動からスクリプトに組み込む場合は、下記記事のコードをご参照ください。
Acrobatと同様にタイプライブラリが用意されているため、VBAやVBSからIllustratorを操作することができます。
今回はIllustratorを操作して新規ドキュメントを作成、文字を追加するスクリプトを紹介します。
[vb]Optio...
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | Option ExplicitDim appAiDim v, iSet appAi = Nothing '初期化On Error Resume NextSet appAi = GetObject(, "Illustrator.Application")On Error GoTo 0If appAi Is Nothing Then WScript.Echo "Illustratorを起動した状態でスクリプトを実行してください。" Wscript.QuitEnd If'下記でオートメーションエラーが発生する場合は、一度手動でPDFプリセットダイアログを表示してから実行On Error Resume Nextv = appAi.PDFPresetsListIf Err.Number <> 0 Then WScript.Echo "Error:" & Err.Number & vbNewLine & Err.Description Wscript.QuitEnd IfOn Error GoTo 0'PDFプリセットを列挙For i = LBound(v) To UBound(v) WScript.Echo v(i)Next |
Illustrator.ApplicationオブジェクトのPDFPresetsListプロパティから、PDFプリセットの名前を配列として取得できるのですが、私の環境だと単にIllustratorを起動しただけでは、下図のようにオートメーションエラーが発生しました。
一度手動でPDFプリセットダイアログを表示した後は、意図した通りにPDFプリセットが取得できたのですが、このあたりの挙動がいまいち掴めません。
外部スクリプトによるIllustratorオートメーションを試していると、度々こういった現象が発生します。
私の環境が悪いのか、Illustrator側の仕様かどうかは分かりませんが、「触っていてクセがあるなー」というのが、正直な感想です。
この記事へのコメントはありません。