技巧7 最大化应用程序窗口

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/0812653131.html,ableHeight .Width = https://www.wendangku.net/doc/0812653131.html,ableWidth End With

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