「フォルダの参照」ダイアログを「常に手前」に表示
下記サンプルを使ってフォルダを指定させています。
Sub Sample2()
Dim Shell, myPath
Set Shell = CreateObject("Shell.Application")
Set myPath = Shell.BrowseForFolder(&O0, "フォルダを選んでください", &H1 + &H10, "C:\")
If Not myPath Is Nothing Then MsgBox myPath.Items.Item.Path
Set Shell = Nothing
Set myPath = Nothing
End Sub
上記プログラムで働くダイアログを
常に手前に表示させるか、
モーダルにするか、
他の所がアクティブになっても、すぐに手前に表示させるかしたいのです。
ちなみにプログラムは
http://officetanaka.net/excel/vba/tips/tips39.htm
を参考にさせてもらっています。
(ちなみに「1.FileDialogオブジェクトを使う方法」はエクセル2002以降の機能らしく実行できませんでした。これを使えるのが一番いいのですが・・・)
エクセル 2000を使っています
よろしくおねがいします
お礼
色々あるんですね。 ありがとうございました。