| |
▼にっく さん：
>windows XP Excel2002
>
>ハイパーリンクでjpeg画像を開き印刷したいと思っています。
>IEではなくWindows Picture and Fax Viewerで開いて印刷したいのですがうまくいきません。ファイルの関連付けを変えてもIEで開いてしまいます。
>
>ＶＢＡを使って指定の画像をWindows Picture and Fax Viewerで開けるようにできるでしょうか？
>
>初心者ですが宜しくお願いします。
Windows Picture and Fax Viewerは実体がEXEではなくdllなので
ちょっと特殊な開き方になります。
下を参考にしてみてください。
Worksheet_FollowHyperlinkイベントで行えば出来るかも？
Sub Test()
Dim ViewPath As String 'ビューワーのパス
Dim FilePath As String '画像ファイルのパス
Dim OpenPath As String 'シェル関数に送るパス
ViewPath = "rundll32.exe C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscreen"
FilePath = "D:\test.jpg"
OpenPath = ViewPath & " " & FilePath
Shell OpenPath, vbNormalFocus
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
