Attribute VB_Name = "testwindowope2"
Sub テスト()
    
    Windows.Arrange ArrangeStyle:=xlArrangeStyleCascade
    MsgBox "重ねて表示しました"

    Windows.Arrange ArrangeStyle:=xlArrangeStyleTiled
    MsgBox "並べて表示しました"

    Windows.Arrange ArrangeStyle:=xlArrangeStyleHorizontal
    MsgBox "上下に並べて表示しました"

    Windows.Arrange ArrangeStyle:=xlArrangeStyleVertical
    MsgBox "左右に並べて表示しました"

End Sub