はじめに
Excel のVBA からAcrobat を起動し、PDFファイルを画面表示する簡単なサンプルです。
- 参照設定を事前に行う。
- 以下のサンプルはテスト用です。
F8キーでステップ実行して動作確認します。
サンプル
001 Sub Acrobat_Show()
002
003 'Acrobatオブジェクトの定義＆作成
004 ' Acrobat 4,5,6 の時
005 ' Dim objAcroApp As Acrobat.CAcroApp
006 ' Dim objAcroPDDoc As Acrobat.CAcroPDDoc
007 ' Set objAcroApp = CreateObject("AcroExch.App")
008 ' Set objAcroPDDoc = CreateObject(“AcroExch.PDDoc”)
009 ' Acrobat 7,8,9,10,11 の時
010 Dim objAcroApp As New Acrobat.AcroApp
011 Dim objAcroPDDoc As New Acrobat.AcroPDDoc
012 '以降はAcrobat全て共通
013 Const CON_FILE = "C:¥PDF¥iac_developer_guide.pdf"
014
015 'Acrobatを起動＆表示する。
016 objAcroApp.Show
017 objAcroPDDoc.Open CON_FILE
018 objAcroPDDoc.OpenAVDoc CON_FILE 'PDFファイルを表示
019
020 'この後に終了処理をいれる必要がある。
021
022 End Sub
Highlight：プログラミング言語のソースコードを構文で色分け (GUI編)
結果
Acrobatアプリケーションが起動され、そしてPDFドキュメントが画面表示されます。
備考
- 本来は該当するPDFファイルが存在する事とファイルがPDFドキュメントである事の２点を事前チェックする必要があります。
＜ TOPへ ＞
Dim objAcroApp As New Acrobat.AcroApp
⇒実行時、この場所にて
「コンパイル エラー: ユーザ定義型は定義されていません。」
となります。対処方法をご教授願います。
しおかりsどうげ さん
はじめまして。
当ページの最初に書いている通りに
参照設定を行ってください。
なお、PC環境にAcrobat Pro がインストールされていると言う前提条件が有ります。
解決につながれば幸いです。