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