● EXCELからtifファイル閲覧アプリを起動する
ここでは、Microsoft Office Document Imagingを使ってTIFF(tif)ファイルを閲覧します。
〔ソースリスト〕
(リスト中の¥マークは表示するために全角文字にしています。このまま使う場合は半角にしてください。)
(tiff閲覧ソフトの位置、ファイルの位置、ファイル名の内容は使用する環境に合わせて変更してください。)
Dim tiff閲覧ソフトの位置 as String
Dim ファイルの位置 as String
Dim ファイル名 as String
tiff閲覧ソフトの位置 = "C:¥Program Files¥Common Files¥Microsoft Shared¥MODI¥11.0¥MSPVIEW"
ファイルの位置 = "C:¥data¥"
ファイル名 = "sample.jpg"
Shell tiff閲覧ソフトの位置 + Chr(34) + ファイルの位置 + ファイル名 + Chr(34), vbNormalFocus
|