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 = https://www.wendangku.net/doc/a01209039.html,ableHeight .Width = https://www.wendangku.net/doc/a01209039.html,ableWidth End With
End Sub
SetWindowNormal 过程设置应用程序窗口为正常状态,并设置其大小适合应用程序窗口的可使用区域最大化应用程序和窗口正常状态