VBScript VisioをPDFに変換

質問

初のVBScriptで分からない部分が出てきましたので質問させていただきます。

コマンドプロンプトからVBSScriptを実行し、
VisioをPDFに変換しようと考えています。

以下のファイルを作成し実行しましたが、
「アクセスが拒否されました。」と表示されます。(コード：86DB0971)

Visioを開き、ExportAsFixedFormatをマクロとして実行したらうまくいきました。
コマンドプロンプトではうまくいかないものなのでしょうか？

test.vbs
---------------開始---------------
Dim vsApp
Dim vsDoc
Set vsApp = CreateObject("Visio.Application")

'既存のファイルを開く
Set vsDoc = vsApp.Documents.Open("C:\test.vsd")

'PDFに変換し保存
vsApp.ActiveDocument.ExportAsFixedFormat visFixedFormatPDF, "C:\test2.pdf", visDocExIntentPrint, visPrintAll

vsDoc.Close

vsApp.Quit
---------------終了---------------

環境
WindowsXP
Visio 2007

マクロの設定
・すべてのマクロを有効にする。
・VBAプロジェクトオブジェクトモデルへのアクセスを信頼するにチェック

回答No.1

nicotinism · ベストアンサー

Visio は持ち合わせておりませんが
面白い（失礼）エラーだと思いまして『86DB0971』を Google ってみました
すると、VB6? の話なのですが以下が見つかりました。
http://forums.aspfree.com/visual-basic-programming-38/error-using-exportasfixedformat-with-visio-329393.html
最後に自己解決していますが、それによれば
Createobject("Visio.Application") で作っていても
さらにMicrosoft Visio 12.0 Type Library に参照設定のチェックが必要だった。
Access や Excel なら Createobject("Excel.Application") とかだけで良かったのに・・・
ということでした。
VBS で 参照設定のようなことは出来ませんので（多分。。）
無理ではないかと。。。？

識者のご登場をお待ちください。

お礼

回答ありがとうございます。

Excel等はOKだけどVisioだけはNGってなんかヘン。

VBSでの参照設定はできないみたいですね。
http://oshiete.goo.ne.jp/qa/2304439.html

VisualStudio勉強しながら、もう少し待ってみます。
ありがとうございました。