Excel VBA質問箱 IV

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

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


20365 / 76732 ←次へ | 前へ→

【61788】Re:ハイパーリンクについて
発言  もも  - 09/6/4(木) 10:46 -

引用なし
パスワード
   ▼にっく さん:
>windows XP Excel2002
>
>ハイパーリンクでjpeg画像を開き印刷したいと思っています。
>IEではなくWindows Picture and Fax Viewerで開いて印刷したいのですがうまくいきません。ファイルの関連付けを変えてもIEで開いてしまいます。
>
>VBAを使って指定の画像を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
0 hits

【61783】ハイパーリンクについて にっく 09/6/4(木) 0:22 質問
【61788】Re:ハイパーリンクについて もも 09/6/4(木) 10:46 発言
【61789】Re:ハイパーリンクについて にっく 09/6/4(木) 11:15 お礼

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