A01015 - 获取在 Excel 主窗口中一个窗口所能占有的最大高度和宽度 - P7

admin

1. Public Sub 技巧1_015()
   
2.     Dim myMaxHeight As Double, myMaxWidth As Double
   + z7 l/ ]$ r% g  c
3.     myMaxHeight = Application.UsableHeight
   $ V" q* c4 E2 C6 x
4.     myMaxWidth = Application.UsableWidth
   
5.     MsgBox "本窗口在Excel主窗口中所能占有的最大高度和宽度分别为：" _
   
6.         & vbCrLf & "最大高度：" & myMaxHeight _
   7 i7 n4 ~# A7 S0 t! E
7.         & vbCrLf & "最大宽度：" & myMaxWidth
     \4 a9 b9 `% }
8. End Sub

复制代码