PDFのサムネール表示をボタン一つで切り替えるには？ (ID:77370)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

こういうことじゃないのかな？
# まず初めに、
# Adobe Acrobat はインストールされてますか？
# AVDoc を CreateObject できているってことは、
# インストールされているとは思いますが。

フォーム上にボタンを３つ配置して、
下のコードを貼り付けて、実行して下さい。

Option Explicit
Private AcroApp   As Object 'Acrobat.CAcroApp
Private AcroAVDoc As Object 'Acrobat.CAcroAVDoc
Private AcroPDDoc As Object 'Acrobat.CAcroPDDoc
Private bRetValue As Boolean
Private Const PDUseThumbs = 2
Private Const PDUseNone = 1
Private Sub Command1_Click()
  Dim filename        As String
  filename = "c:\a.pdf"
  
  Set AcroApp = CreateObject("AcroExch.App")
  bRetValue = AcroApp.Show
  If bRetValue = False Then MsgBox "ERROR"
  
  Set AcroPDDoc = CreateObject("AcroExch.PDDoc")
  bRetValue = AcroPDDoc.Open(filename)
  If bRetValue = False Then MsgBox "ERROR"
  
  Set AcroAVDoc = AcroPDDoc.OpenAVDoc("")
End Sub
Private Sub Command2_Click()
  '* サムネール表示
  bRetValue = AcroAVDoc.SetViewMode(PDUseThumbs)
End Sub
Private Sub Command3_Click()
  '* サムネール非表示
  bRetValue = AcroAVDoc.SetViewMode(PDUseNone)
End Sub
Private Sub Form_Load()
  Command1.Caption = "Acrobat 起動"
  Command2.Caption = "サムネール表示"
  Command3.Caption = "サムネール非表示"
End Sub

←解決時は質問者本人がここをチェックしてください。

戻る