获得Excel窗口的位置和大小信息，用VBA可以这样做

　　使用VBA，可以对Excel的窗口进行各种各样的设置，包含显示样式、显示的大小和位置等，而且设置非常简单，只要了解几种常用的属性即可。

下面列举几种常见设置。

• 获得Excel主窗口的显示样式

这里说的显示 样式包括最大小、最小化和一般显示三种状态，可以通过Application.WindowState属性获得这些信息，如：

Sub 获得Excel主窗口的显示样式() Dim myState As String myState = Application.WindowState If myState = xlMaximized Then MsgBox "Excel窗口最大化", vbInformation ElseIf myState = xlMinimized Then MsgBox "Excel窗口最小化", vbInformation ElseIf myState = xlNormal Then MsgBox "Excel窗口一般显示", vbInformation End If End Sub

• 获得Excel主窗口的高度和宽度

Excel主窗口就是Application对象，它的高度和宽度分别是Application.Height和Application.Width属性，要获得窗口的高和宽度信息，访问这两个属性的值即可。如：

Sub 获得Excel主窗口的高度和宽度() Dim myHeight As Double, myWidth As Double myHeight = Application.Height myWidth = Application.Width MsgBox "Excel主窗口的高度和宽度分别为：" _ & vbCrLf & "高度：" & myHeight _ & vbCrLf & "宽度：" & myWidth, vbInformation End Sub

• 获得Excel主窗口的边界位置

Excel主窗口的边界位置，包括窗口左边离屏幕左端的距离，以及窗口顶端离窗口顶端的距离。

如果要获得这两个信息，可以分别访问Application.Left和Application.Top属性。如：

Sub 获得Excel主窗口的边界位置() Dim myLeft As Double, myTop As Double myLeft = Application.Left myTop = Application.Top MsgBox "Excel主窗口的左边界位置和顶端距离分别为：" _ & vbCrLf & "左边界位置：" & myLeft _ & vbCrLf & "顶端距离：" & myTop End Sub

关注Excel笔记，学习更多Excel技巧。