Excel VBA質問箱 IV

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

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


5854 / 13645 ツリー ←次へ | 前へ→

【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 -

引用なし
パスワード
   ▼みかん王子 さん:
おはようございます。
IEでjpgファイルを表示させるだけなら、

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


PhotoEditorは、試していませんが、上記の例に倣ってみては?

【48542】Re:エクセル以外のファイルを開くには?
お礼  みかん王子  - 07/4/21(土) 18:23 -

引用なし
パスワード
   ichinoseさん、こんにちは。

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

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

ありがとうございました。

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