Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5855 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【48479】エクセル以外のファイルを開くには？ みかん王子 07/4/18(水) 20:01 質問[未読]
【48486】Re:エクセル以外のファイルを開くには？ ichinose 07/4/19(木) 7:27 発言[未読]
【48542】Re:エクセル以外のファイルを開くには？ みかん王子 07/4/21(土) 18:23 お礼[未読]
【48479】エクセル以外のファイルを開くには？
質問  みかん王子  - 07/4/18(水) 20:01 -
引用なし
パスワード
   こんばんは。
みかん王子です。

マクロを実行して、JPGファイルをPhotoEditorやInternetExploreなどで
表示する方法を探しています。
現在までにたどり着いた方法は以下のようなものです。
しかし、Wordなどは開けるのですが、PhotoEditorやIEが開けません。
別の方法でもかまいませんので、何かいい方法があれば
宜しくお願いします。

Sub Sample()
　　Dim FileName As String
　　FileName = ThisWorkbook.Path & Application. _
　　PathSeparator & "ファイル名.jpg"

　 With CreateObject("***.Application")
　　　　.Documents.Open FileName
　　　　.Visible = True
　　End With
End Sub
【48486】Re:エクセル以外のファイルを開くには？
発言  ichinose  - 07/4/19(木) 7:27 -
引用なし
パスワード
   ▼みかん王子 さん：
おはようございます。
ＩＥでjpgファイルを表示させるだけなら、

Sub test()
　 Shell "Explorer ""D:\xxxxx\aaa.jpg""", vbMaximizedFocus
End Sub


PhotoEditorは、試していませんが、上記の例に倣ってみては？
【48542】Re:エクセル以外のファイルを開くには？
お礼  みかん王子  - 07/4/21(土) 18:23 -
引用なし
パスワード
   ichinoseさん、こんにちは。

確認が遅くなってしまいました。
すみません。

教えて頂いた方法を試してみました。
ばっちりファイルも開けました!!
しかも、こちらのほうが簡単ですね。

ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5855 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free