Sub MaximizedWin()
Application.WindowState = xlMaximized
ActiveWindow.WindowState = xlMaximized
End Sub

MaximizedWin过程最大化应用程序和活动窗口

Sub SetWindowNormal()
Application.WindowState = xlNormal
With ActiveWindow
.WindowState = xlNormal
.Left = 0
.Top = 0
.Height = Application.UsableHeight
.Width = Application.UsableWidth
End With
End Sub

SetWindowNormal过程设置应用程序窗口为正常状态,并设置其大小适合应用程序窗口的可使用区域

最大化应用程序和窗口
正常状态