Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


3556 / 13646 ツリー ←次へ | 前へ→

【61453】エクセルのオブジェクトリンクPDFファイルを指定の場所に保存したい お次郎 09/5/8(金) 22:33 質問[未読]

【61453】エクセルのオブジェクトリンクPDFファイ...
質問  お次郎  - 09/5/8(金) 22:33 -

引用なし
パスワード
   初めて投稿させていただきます。

エクセルの挿入ーオブジェクトーファイルーアイコン表示にチェックして、PDFファイルが挿入された申請書をデータでもらい、挿入されたPDFファイルを所定のフォルダに別名保存したいのですが、可能でしょうか?
リンクされているファイルを開くと、acrobat readerのファイルメニューには、『コピーを保存』と、
通常メニューと異なるようです。

Sub Test()
Dim WrkObj As Object
Dim BookName As String

BookName=ThisWorkbook.Name
For Each WrkObj in ActiveSheet.OLEObjects
    ActiveSheet.OLEObjects(WrkObj.Name).select
    Selection.Verb Verb:=xlPrimary
    →ここで保存させたい(保存ファイル名=Workbooks(BookName).Path & Application.PathSeparator & Shinsei_temp & CreateObject("Scripting.FileSystemObject").GetExtensionName(ActiveWindow.Caption)
    ActiveWindow.close 
Next
End Sub

ActiveWindow.close にFileName:=を付けてみたりいろいろ試したのですが...
よろしくお願い致します。

3556 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free