![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
タイトルの件、下記の画像をご覧ください。
全部でみつのフォルダを下記の画像のように
並べるマクロを教えて下さい。
出来れば、フォルダを開くところから
スタートするマクロが良いです。
フォルダを開くだけのマクロは下記のコードのとおりです。
【フォルダパス】
C:\Users\2020\Desktop\フォルダA
C:\Users\2020\Desktop\フォルダB
C:\Users\2020\Desktop\フォルダC
【フォルダA、フォルダb、フォルダCを開くマクロ・コード】※動作確認済
Const 半角スペース = """"
Sub sample()
Dim Apath As String
Dim Bpath As String
Dim Cpath As String
Dim Dpath As String
Apath = "C:\Users\2020\Desktop\フォルダ A"
Bpath = "C:\Users\2020\Desktop\フォルダ B"
Cpath = "C:\Users\2020\Desktop\フォルダ C"
CreateObject("WScript.Shell").Run 半角スペース & Apath & 半角スペース
CreateObject("WScript.Shell").Run 半角スペース & Bpath & 半角スペース
CreateObject("WScript.Shell").Run 半角スペース & Cpath & 半角スペース
End Sub
![「【マクロ】フォルダを3つ、POモニター上」の質問画像](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/7/165419_630ec1cdd80c7/M.gif)
No.4ベストアンサー
- 回答日時:
こんにちは
動く環境で良かったです
>●フォルダパスを指定していないですが、なぜ、フォルダちゃんと開くのでしょうか?
これに関しては、
スッキリした解り易い解説(参考)サイトが良かったかも知れませんが
内容の一文が代弁してくれていますのでこちらを確認してみてください
http://www.ken3.org/vba/backno/vba114.html
No.3
- 回答日時:
こんにちは
WindowsAPIのSystemParametersInfoとShowWindowを使用して
移動、サイズ変更時の事を考えてCreateObject("WScript.Shell").Runはやめて(寄せ集め手持ちが違っていたので・・)
Option Explicit
Private Declare PtrSafe Function ShowWindow Lib "user32" ( _
ByVal hwnd As LongPtr, ByVal nCmdShow As Long) As Long
Private Declare Function SystemParametersInfo Lib "user32" _
Alias "SystemParametersInfoA" ( _
ByVal uAction As Long, _
ByVal uParam As Long, _
ByRef lpvParam As Any, _
ByVal fuWinIni As Long) As Long
'構造体
Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Sub example()
Dim aryPath(0 To 2)
Dim wsh As Object
Dim ds As String
Const 半角スペース = """"
Set wsh = CreateObject("WScript.Shell")
ds = wsh.SpecialFolders("Desktop")
'? フォルダ 半角スペースはあるの?A
aryPath(0) = ds & "\フォルダ A"
aryPath(1) = ds & "\フォルダ B"
aryPath(2) = ds & "\フォルダ C"
Dim Rt As RECT
Call SystemParametersInfo(48, 0, Rt, 0) '48有効サイズ
Dim Lpt As Long, Tpt As Long, wd As Long, ht As Long
wd = Rt.Right - Rt.Left
ht = Rt.Bottom - Rt.Top
Dim objShell As Object
Dim lgWnd As Long
Dim i As Integer
Set objShell = CreateObject("Shell.Application")
For i = 0 To UBound(aryPath)
lgWnd = objShell.Windows.Count
Shell "C:\Windows\Explorer.exe " & aryPath(i), vbNormalFocus
Do
DoEvents
Loop Until objShell.Windows.Count > lgWnd
If i = 0 Then Lpt = Rt.Left: Tpt = Rt.Top: wd = wd / 2: ht = ht
If i = 1 Then Lpt = Rt.Right - wd: Tpt = Rt.Top: ht = ht / 2
If i = 2 Then Lpt = Lpt: Tpt = Rt.Bottom - ht: ht = Tpt
With objShell.Windows(objShell.Windows.Count - 1)
ShowWindow .hwnd, vbNormalFocus
.Left = Lpt
.Top = Tpt
.Width = wd
.Height = ht
End With
Next
End Sub
一例なので上手くいかなかったら忘れてください
すごいです。うまくできました。
質問と補足です。
●フォルダパスを指定していないですが、なぜ、フォルダちゃんと開くのでしょうか?
⇒【フォルダパス】C:\Users\2020\Desktop\フォルダ A
●'? フォルダ 半角スペースはあるの?A
⇒フォルダ A⇒フォルダとAの間に半角スペースがあるのです
No.2
- 回答日時:
こんにちは。
うーん、、大分面倒かなと思います。
私の知る方法は WindowsAPI を幾つか使います。
大まかな流れは次の通り。記憶のみで書いてるので間違いあったらすみません。
1. SystemParametersInfo でプライマリーモニターのタスクバー除きのサイズを調べる
2. 1.の結果から3つのウインドウサイズと位置を計算
3. shell 等でウインドウを開く
4. shell の戻り値を OpenProcess に渡して、ウインドウハンドルを調べる
5. MoveWindow でウインドウの移動、サイズを変更
帰宅して他に回答がなければサンプル書いてみますが、他にもっと簡単な方法があれば私も知りたいです。
No.1
- 回答日時:
こんにちは
直接の回答ではありませんが・・
「POモニター」が何を意味しているのか分かりませんけれど、ご提示のようなレイアウトにするには、
・モニターのサイズを取得する
・フォルダを開いてサイズ・位置を指定する
ことが必要になります。
スクリーンサイズをW、Hとするなら、それぞれのウィンドウ位置を(0,0)、(W/2,0)、(W/2,H/2)に指定し、サイズはw=W/2、h=H(またはH/2)に指定することで可能でしょう。
モニタサイズの取得方法は、例えば
https://www.moug.net/tech/acvba/0020033.html
ウィンドウ位置・サイズの指定は例えば
https://okwave.jp/qa/q8253596.html
などで可能なようですので、これらを組み合わせれば実現できるものと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【マクロ】フォルダを2つのモニターの定位置に並べたい 2 2022/09/02 01:14
- Excel(エクセル) 【マクロ】フォルダAからダBへファイルを、ファイルの更新日時の条件で、1つづつ移動するには? 3 2022/08/25 09:56
- Visual Basic(VBA) あるフォルダーのファイルを違う親フォルダーのサブフォルダーに移したい 11 2023/02/15 19:00
- Android VBA、フォルダのパスに環境文字 ㉑ があり、VBAが機能しません。 2 2022/07/27 09:16
- Excel(エクセル) 【VBA】ファイルパスに半角スペースが入ると、VBAが動かない 5 2022/08/04 20:52
- Excel(エクセル) 【VBAファイル移動】2つのマクロを順に実行。1つ目のマクロが実行不可⇒2つ目が実行不可となる件 2 2022/07/29 12:17
- Excel(エクセル) 【マクロ】ファイルを古い順に、1個ずつ移動する 1 2022/09/06 20:30
- Visual Basic(VBA) 【マクロ】フォルダにファイルが1つも無い時に、ファイルがありませんとメッセージを表示する 4 2022/08/28 08:48
- Excel(エクセル) マクロのコードを、少しでも削って短くしたい 3 2022/08/30 07:46
- Excel(エクセル) 【マクロ】エラーが発生⇒実行時エラー58既に同名のファイルが存在 5 2022/08/31 10:03
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
【マクロ】フォルダを2つのモニターの定位置に並べたい
Excel(エクセル)
-
指定したフォルダーを最前面表示にする方法
Visual Basic(VBA)
-
VBAで既に開いている別アプリケーションのオブジェクトを得る
Visual Basic(VBA)
-
-
4
マルチディスプレイを使用していますがexcelマクロが使えない
Visual Basic(VBA)
-
5
Adobe Reader を閉じる
その他(Microsoft Office)
-
6
PDFファイルを開き、印刷し、閉じるマクロ
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
フォルダのサムネイル画像
-
撮影後、SDカードに作成される...
-
空フォルダを一挙に作成する方...
-
excel VBA 特定の文字列を含む...
-
フォルダについて。
-
謎のフォルダ「ドネュメント」
-
お気に入りに追加したのに表示...
-
public_htmlに移動できない
-
PSPで動画が見れない
-
元のフォルダに矢印キーで帰りたい
-
SDカードリーダーでカメラで撮...
-
画像をサイトで使うには?
-
会社で情報共有するために使っ...
-
Sleipnirの仕様設定を別のPCに...
-
【マクロ】フォルダを2つのモ...
-
宇宙犬という大きなフォルダ
-
お気に入りフォルダの名前はど...
-
C:\\Documents and Settingsが...
-
外付けハードディスク内の1つ...
-
OE フォルダを閉じておきたい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
フォルダのサムネイル画像
-
C:\\Documents and Settingsが...
-
元のフォルダに矢印キーで帰りたい
-
excel VBA 特定の文字列を含む...
-
大量のフォルダへのハイパーリ...
-
撮影後、SDカードに作成される...
-
excel VBA 部分一致の名前をパ...
-
お気に入りフォルダの名前はど...
-
【マクロ】エクセルにかいてあ...
-
【マクロ】フォルダを2つのモ...
-
大量のファイルのファイル名を...
-
【マクロ】フォルダを3つ、PO...
-
I386フォルダの役目とは
-
Windows11でフォルダを開いた時...
-
エクセルVBAで相対パスでフォル...
-
謎のフォルダ「ドネュメント」
-
バッチファイルの親フォルダを...
-
Explorerのフォルダウインドウ...
-
エクスプローラ、「上へ」でフ...
-
お気に入りに追加したのに表示...
おすすめ情報