Attribute VB_Name = "testwindowope7"
Sub テスト()
        
    ActiveWindow.WindowState = xlMaximized
    MsgBox "最大化表示しました"

    ActiveWindow.WindowState = xlMinimized
    MsgBox "最小化表示しました"
    
    ActiveWindow.WindowState = xlNormal
    MsgBox "通常表示です"
    
End Sub