EXCELからPDF特定ページへのリンクの張り方

質問

ＥＸＣＥＬのあるセルからＰＤＦの特定のページにリンクを張りたいのですがどうすればよいのでしょうか。
ＥＸＣＥＬのセル選択後、「挿入」→「ハイパーリンク」、「ハイパーリンクの挿入」画面でファイルを選ぶとリンクは張れるのですが先頭ページに張られます。
ＯＳはＸｐ、ＥＸＣＥＬは２００３です。
よろしくお願いします。

回答No.1

mitarashi · ベストアンサー

ハイパーリンクではありませんが、昔調べたのを引っ張り出して来ました。
Adobe Reader 9, xl2010, WindowsXPSP3で動作しました。
数年前に試したときは、安定性に欠けた記憶がありますが、ご参考まで。

１．pdfと、エクセルのファイルは同じフォルダーにあるとします。
２．エクセルのあるセルにファイル名、右隣のセルに目的のページの番号があるとします。
３．ファイル名のセル上での、シートのWクリックイベントで動作させます。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim readerPath As String
Dim pdfPath As String
Dim myChan As Long, rc As Long, targetPage As Long

If LCase(Right(Target.Value, 4)) <> ".pdf" Then Exit Sub
targetPage = Target.Offset(0, 1).Value
'Adobe Readerのプログラムの本体、AcroRd32.exeのフルパスを記述します。
readerPath = "C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe"
pdfPath = ThisWorkbook.Path & "\" & Target.Value
rc = Shell(readerPath, 1)
myChan = DDEInitiate("Acroview", "Control")
DDEExecute myChan, "[DocOpen(""" & pdfPath & """)] "
DDEExecute myChan, "[DocGoTo(NULL," & CStr(targetPage - 1) & ")]"
AppActivate rc, True
DDETerminate myChan
Cancel = True
End Sub

お礼

ご回答ありがとうございました。
しかし、私にはレベルが高すぎて残念ながら意味がわかりません。
１．『シートのＷクリックイベント』で何を動作させるのでしょうか。
２．下のプログラムはＶＢＡでしょうか。
というレベルです。
調査いただきありがとうございました。

回答No.2

mitarashi

#1です。
イベントについては参考URLでもご覧下さい。
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_event.html

念のために、Alt + F11 キーを押すとVBEの画面が表示されます。

お礼

おっしゃりたいことはわかりました。ただ私がやるとエラーが出てきましたので、これはもう少し時間をかけて考えようと思います。とりあえずお礼を述べさせていただきます。ありがとうございました。