技巧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 = ableHeight .Width = ableWidth End With

End Sub

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