窗口的宽度(高度)及窗口能占有的最大宽度(高度)(VBA).docVIP

窗口的宽度（高度）及窗口能占有的最大宽度（高度）（VBA） 先看一下窗口的原始状态 ?? ? 代码1 ? Sub setwd() With Application.Windows(1) .WindowState = xlNormal .Width = 300 .Height = 200 Debug.Print .Width Debug.Print .Height Debug.Print .UsableWidth Debug.Print .UsableHeight End With End Sub ? 运行结果： ? ? 还有三个数值 Debug.Print .Width : 300 Debug.Print .Height : 199.5 Debug.Print .UsableWidth : 283.5 Debug.Print .UsableHeight : 163.5 ? 代码2 ? Sub setwd() With Application.Windows(1) .Width = .UsableWidth .Height = .UsableHeight Debug.Print .Width Debug.Print .Height Debug.P