vba あるブックから新たにブックを起動したときディスプレイ上で並べて表示

いつもお世話になります。

OSはwin11、エクセルはoffice365です。

下記の「参考」で新たなブックは起動できるのですが、
旧のブックと新たなブックが重なり手動で　「整列　並べ゛て表示」　の作業します。

ご指導を仰ぎたいのはこの手動の作業を自動化したいです。




参考　下記はあるブックから、ブック名「2023 外国為替」を起動するのみのコードです。

Sub 外国為替起動()
Workbooks.Open Filename:=ThisWorkbook.Path & "/2023 外国為替.xlsm"
End Sub

質問者からの補足コメント

• 

  同じフォルダー内にブックで、
  
  アクティブウインドウであるブック名「2023 株価取得.xlsm」
  　のvbaにより、
  　　　ブック名「2023 外国為替.xlsm」を起動する。
  
  　起動後、「株価取得」　「外国為替」　の表示が重なる。
  
  参考
  
  ブック名「2023 株価取得.xlsm」
  "X:\デスクトップ\keep\2023 株価取得.xlsm"
  
  
  ブック名「2023 外国為替.xlsm」
  path
  "X:\デスクトップ\keep\2023 外国為替.xlsm"

    補足日時：2023/08/08 12:50

No.1 回答者： 親指Goo太郎 回答日時： 2023/08/08 20:36

chatGPTに聞いてみたら以下の答えが出てきました。

間違ってる事もありますが参考になれば

手動で行っている「整列 並べて表示」の作業を自動化するためには、以下のようなVBAコードを使用できます。このコードは、現在開いているブックと新しいブックをタイル状に表示します。

```vba
Sub ブックを整列して表示()
Dim CurrentBook As Workbook
Dim NewBook As Workbook

Set CurrentBook = ThisWorkbook
Set NewBook = Workbooks.Open(Filename:=CurrentBook.Path & "\2023 外国為替.xlsm")

CurrentBook.Windows(1).WindowState = xlNormal
NewBook.Windows(1).WindowState = xlNormal

Application.Windows.Arrange ArrangeStyle:=xlTile
End Sub
```

このコードを新しいモジュールに追加して実行すると、既存のブックと新しいブックが自動的に整列して表示されるはずです。必要に応じてコードを調整してください。

この回答へのお礼

ご指導をありがとうございます。

1　下記のコードが黄色に反転します。
　　　　Application.Windows.Arrange ArrangeStyle:=xlTile
2　上の1に関係かもですが重なったままです。

誠に恐れ入りますが再指導頂けませんか。

お礼日時：2023/08/08 21:06