ExcelからPDFファイルを表示する

TOP > *      [...]


はじめに

Excel のVBA からAcrobat を起動し、PDFファイルを画面表示する簡単なサンプルです。

  • 参照設定を事前に行う。
  • 以下のサンプルはテスト用です。
    F8キーでステップ実行して動作確認します。

  

サンプル

 

Sub Acrobat_Show()

    'Acrobatオブジェクトの定義&作成
'    Acrobat 4,5,6 の時
'    Dim objAcroApp As Acrobat.CAcroApp
'    Dim objAcroPDDoc As Acrobat.CAcroPDDoc
'    Set objAcroApp = CreateObject("AcroExch.App")
'    Set objAcroPDDoc = CreateObject(“AcroExch.PDDoc”)
'    Acrobat 7,8,9,10,11 の時
    Dim objAcroApp As New Acrobat.AcroApp
    Dim objAcroPDDoc As New Acrobat.AcroPDDoc
    '以降はAcrobat全て共通
    Const CON_FILE = "C:¥PDF¥iac_developer_guide.pdf"

    'Acrobatを起動&表示する。
    objAcroApp.Show
    objAcroPDDoc.Open CON_FILE
    objAcroPDDoc.OpenAVDoc CON_FILE 'PDFファイルを表示

    'この後に終了処理をいれる必要がある。

End Sub

 

結果

Acrobatアプリケーションが起動され、そしてPDFドキュメントが画面表示されます。

ExcelからPDFファイルを表示する

 





 

備考

 

  • 本来は該当するPDFファイルが存在する事とファイルがPDFドキュメントである事の2点を事前チェックする必要があります。

 

TOPへ

「ExcelからPDFファイルを表示する」への2件のフィードバック

  1. Dim objAcroApp As New Acrobat.AcroApp 
      ⇒実行時、この場所にて
       「コンパイル エラー: ユーザ定義型は定義されていません。」
      となります。対処方法をご教授願います。

  2. しおかりsどうげ さん
    はじめまして。

    当ページの最初に書いている通りに
    参照設定を行ってください。
    なお、PC環境にAcrobat Pro がインストールされていると言う前提条件が有ります。

    解決につながれば幸いです。

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

CAPTCHA


出来るだけ早く返答する様には心がけています。
が、遅くなる時もありますのでご了承ください。


SAMURAI Plugin

コメントをする時は最低でも以下をお願いします。

  • OS名 バージョン
  • Acrobat バージョン
  • ツール(Excel等) バージョン