Excelで埋め込んだPDFを開く

Question

Excelで埋め込んだPDFを開く

Acrobat7で作成したPDFを、Excelファイルに下記の操作で埋め込みました。
Excel2003で、「挿入」「オブジェクト」「ファイルから」

埋め込んだPDFをダブルクリックで開こうとすると、
「このオブジェクトの作成元アプリケーションを起動できません。」とメッセージが出ますが、
Acrobat7で開いてくれます。
しかし、キーワード検索して検索結果をクリックしてもそのページに飛びません。

Reader9を起動したまま、埋め込んだPDFをダブルクリックすると、起動しているReader9で開きます。
検索も正常です。

PDFの関連付けはReader9になっていて、デスクトップにあるPDFを単体で開くときはReader9になります。
Excel内のPDFをReader9で開く、Acrobat7でも正常に開く、どちらかにする方法はあるでしょうか？

end-u · Accepted Answer

>前の質問の時と同じように、二つとも削除してReader9入れてからAcrobat7入れたのですが、
>エクスプローラの異常終了が起きてしまい、直らなくなってしまいました。
誠に申し訳ありません。
私の安直なアドバイスの所為ですね。深く反省致します。
そちらのほうが大きな問題で、解決しないと先に進めないですよね、済みません。
別カテゴリで改めて質問されたほうが識者の方に見て頂けるかもしれません。
adobe.comを見てみましたがこれ、といった情報は見つからないようです。
#アップデイトの適用やインストールの修復などは試されてます..よね。
http://kb2.adobe.com/jp/cps/225/225338.html
http://kb2.adobe.com/jp/cps/234/234070.html

現状の不具合が解消した後の事だと思いますが、
一応、ExcelのOLEObjectに関するレジストリ修正について書いておきます。

基本は
『Office アプリケーションのパスを調べる方法』
http://support.microsoft.com/kb/240794/ja
ここと一緒です。

Excel[挿入]-[オブジェクト]で挿入されるのはOLEObjectというものです。
pdfファイルに関連付けされてるOLEObjectのprogIDは『AcroExch.Document.7』です。
kb240794に書かれてる手順で調べると、
HKEY_LOCAL_MACHINE\Software\Classes\AcroExch.Document.7\CLSID
ここにCLSIDがあります。
{B801CA65-A1FC-11D0-85AD-444553540000}
です。
このキーを検索すると
HKEY_LOCAL_MACHINE\Software\Classes\CLSID\{B801CA65-A1FC-11D0-85AD-444553540000}\LocalServer32
ここにOLEObject『AcroExch.Document.7』で開くプログラムのパスが書かれてますので
Reader9.0のフルパスに書き換えれば良い..はずです。
私の環境ではこれで指定できますが、他に影響が出ないかどうか、正直なんとも言えません。
..参考になれば良いのですが。

end-u · Answer

>ダメのようです。
んー…そうでしたか、そんな不具合が...orz
申し訳ありません。

じゃレジストリ修正について書きますが、ちょっと時間ないのでしばらくお待ちください。

end-u · Answer

>#他の簡単な方法があるのかもしれませんが、私にはちょっとわかりませんでした。
WinXP/XL2003/Reader9.0/Acrobat9.0
の環境で確認したところ、Reader9.0を一度アンインストールして
インストールし直せば良いようです。

>Reader9で開ければ一番良いのですが・・・
との事なので、Readerインストール時にPDFの関連付けをReader9にしてください。

インストール直後はExcel側でオブジェクトが追加できない不具合が出ましたが、
PCを再起動してレジストリが更新されれば大丈夫なようです。

end-u · Answer

ReaderとAcrobat混在環境で、
"Acrobat Document"オブジェクトからReaderを開くように設定するには
どうもレジストリを直接弄る必要がありそうです。
#他の簡単な方法があるのかもしれませんが、私にはちょっとわかりませんでした。

ただ、レジストリを修正する事で他に影響があるかもしれませんし、
私はそちら方面もあまり詳しくないのであまりおすすめできないかな、とも思います。
自己責任で構わないのでどうしても実現させたい、という場合は追記も考えてみます。

一応、できるだけ安全な策として別案を提示しておきます。（駄案かもしれませんが）
アイコンは表示されません。それでも構わないなら、
マクロを登録したTextBoxを追加する事で実現できそうです。
そのTextBoxを追加する事もマクロで行います。
・Excel[Alt]キー+[F11]キー同時押し。
・VBE（VisualBasicEditor）が起動。
・VBE[Alt]、[i]、[m]キーの順押し。
・標準モジュールが挿入される。
・挿入された無地のモジュール部分に以下コピーペースト。

Option Explicit

Sub pdfObjectAdd()
　　Dim x As Variant
　　x = Application.GetOpenFilename("pdfFiles,*.pdf")
　　If VarType(x) = vbBoolean Then Exit Sub
　　With ActiveSheet.TextBoxes.Add(ActiveCell.Left, ActiveCell.Top, 72, 54)
　　　　.Text = CStr(x)
　　　　.OnAction = "pdfOpen"
　　End With
End Sub

Sub pdfOpen(Optional dummy As Boolean)
　　'Reader9本体のフルパス
　　Const pName = """C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe"""
　　Dim fName As String
　　fName = ActiveSheet.TextBoxes(Application.Caller).Text
　　Shell pName & " """ & fName & """", vbNormalFocus
End Sub

'以上をコピー。
必要があればReader9本体のフルパスを修正しなければいけません。

あとは、[挿入]-[オブジェクト]の代わりに　pdfObjectAdd　を実行します。
VBEウィンドウ内で[F5]キーあるいはExcel[Alt]+[F8]でマクロ実行です。
使えるようなら、個人用マクロブックpersonal.xlsに置いたりツールバーに登録したりもできます。

end-u · Answer

Acrobat7を持ってないので検証できませんが
[挿入]-[オブジェクト]の[新規作成]タブから
オブジェクトの種類を指定して（AdobeAcrobatDocument？）挿入しても一緒でしょうか。

また、[ファイルから]挿入する時に、Reader9本体ごと指定したり。
ファイル名欄に、例えば
"C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe" "C:	est	est.pdf"
とします。

#[参照]からファイル名をセットした後に、ファイル名の前に
#"C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe" を付加します。

Excelで埋め込んだPDFを開く

>前の質問の時と同じように、二つとも削除してReader9入れてからAcrobat7入れたのですが、

>ダメのようです。

この回答への補足

>#他の簡単な方法があるのかもしれませんが、私にはちょっとわかりませんでした。

この回答への補足

ReaderとAcrobat混在環境で、

この回答への補足

Acrobat7を持ってないので検証できませんが

この回答への補足

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング