Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

25421 / 76732

←次へ　｜　前へ→


	【56652】Re:ﾌｫﾙﾀﾞｰの最小化

mizunu - 08/6/27(金) 13:02 -


	引用なし

	パスワード

>「VBA」というﾌｫﾙﾀﾞｰを最小化、戻しは可能でしょうか。

APIになりますが、以下のように簡単です。
が、なぜフォルダーの最小化、戻しをマクロでやる必要があるのでしょうか？
そのへんを説明されると、根本的にもっと良い方法を示してもらえるかもしれません。

'標準モジュール
Option Explicit
Private Declare Function ShowWindow Lib "user32" _
　(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
　(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function IsIconic Lib "user32" (ByVal hwnd As Long) As Long
Const SW_SHOWMINIMIZED = 2
Const SW_RESTORE = 9

'フォルダーを最小化/元に戻す
Sub test_FolderMinizedRestore()
　Dim hwnd&, folder$
　folder = "VBA" 'vbNullString 'ファルダー名
　hwnd = FindWindow("CabinetWClass", folder)
　If hwnd = 0 Then hwnd = FindWindow("ExploreWClass", folder)
　If hwnd Then
　　ShowWindow hwnd, IIf(IsIconic(hwnd), SW_RESTORE, SW_SHOWMINIMIZED)
　Else 'Debug用
　　MsgBox "フォルダー'" & folder & "'は開いていない"
　End If
End Sub

1 hits

▼

【56650】ﾌｫﾙﾀﾞｰの最小化 とき 08/6/27(金) 6:13