指定のファイルにリンク

質問

エクセルで指定のファイル（マイドキュメント）にリンクして、その画像を印刷というようなことは可能でしょうか？

もしよろしければご教授くださいませ。

回答No.2

mitarashi · ベストアンサー

失礼ながら、ご質問のタイトルからは、中味がさっぱり分からず、今まで開いてみませんでした。
http://okwave.jp/qa/q6709293.html
の焼き直しです。画像ファイル名の入ったセル上でWクリックすると印刷します。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim myPic As Picture
Dim sh As Worksheet
Dim filePath As String

If LCase(Right(Target.Value, 4) <> ".jpg") Then Exit Sub
filePath = getMyDocumentsPath & "\" & Target.Value
If Dir(filePath) = "" Then Exit Sub
Application.ScreenUpdating = False
Set sh = ActiveWorkbook.Sheets.Add
Set myPic = sh.Pictures.Insert(filePath)
With sh.PageSetup
.PrintArea = myPic.TopLeftCell.Address & ":" & myPic.BottomRightCell.Address
.PaperSize = xlPaperA4
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
sh.PrintOut Copies:=1
Application.DisplayAlerts = False
sh.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Cancel = True
End Sub

Private Function getMyDocumentsPath() As String
Dim objWshShell As Object

Set objWshShell = CreateObject("Wscript.Shell")
getMyDocumentsPath = objWshShell.SpecialFolders("MyDocuments")
Set objWshShell = Nothing
End Function

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

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

回答No.1

imogasi

誰も答えないな。
質問が何処に重点があるのかよくわからないが
エクセルのシートで
挿入ーハイパーリンクーその画像（写真など）ファイル（フルパス）指定
そのセルをクリックー画像が表示されるーシートの印刷
で何処が不都合なのか？
エクセルは画像専用処理ソフトじゃないことを忘れないこと。