窗口(Window对象)基本操作应用示例

Window对象代表一个窗口，约有48个属性和14个方法，能对窗口特性进行设置和操作。Window对象是Windows集合中的成员，对于A pplication对象来说，Windows集合包含该应用程序中的所有窗口；对于Workbook对象来说，Windows集合只包含指定工作簿中的窗口。下面介绍一些示例，以演示和说明Window对象及其属性和方法的运用。

示例02-01：激活窗口(Activate方法)

Sub SelectWindow()

Dim iWin As Long, i As Long, bWin

MsgBox "依次切换已打开的窗口"

iWin = Windows.Count

MsgBox “您已打开的窗口数量为：” & iWin

For i = 1 To iWin

Windows(i).Activate

bWin = MsgBox("您激活了第 " & i & "个窗口，还要继续吗？", vbYesNo)

If bWin = vbNo Then Exit Sub

Next i

End Sub

示例02-02：窗口状态(WindowState属性)

[示例02-02-01]

Sub WindowStateTest()

MsgBox "当前活动工作簿窗口将最小化"

Windows(1).WindowState = xlMinimized

MsgBox "当前活动工作簿窗口将恢复正常"

Windows(1).WindowState = xlNormal

MsgBox "当前活动工作簿窗口将最大化"

Windows(1).WindowState = xlMaximized

End Sub

示例说明：使用WindowState属性可以返回或者设置窗口的状态。示例中，常量xlMinimized、xlNormal和xlMaximized分别代表窗口不同状态值，Windows(1)表示当前活动窗口。可以使用Windows(index)来返回单个的Window对象，其中的index为窗口的名称或编号，活动窗口总是Windows(1)。

[示例02-02-02]

Sub testWindow()

'测试Excel应用程序窗口状态

MsgBox "应用程序窗口将最大化"

Application.WindowState = xlMaximized

Call testWindowState

MsgBox "应用程序窗口将恢复正常"

Application.WindowState = xlNormal

MsgBox "应用程序窗口已恢复正常"

'测试活动工作簿窗口状态

MsgBox "当前活动工作簿窗口将最小化"

ActiveWindow.WindowState = xlMinimized

Call testWindowState

MsgBox "当前活动工作簿窗口将最大化"

ActiveWindow.WindowState = xlMaximized

Call testWindowState

MsgBox "当前活动工作簿窗口将恢复正常"

ActiveWindow.WindowState = xlNormal

Call testWindowState

MsgBox "应用程序窗口将最小化"

Application.WindowState = xlMinimized

Call testWindowState

End Sub

‘*********************************************************

Sub testWindowState()

Select Case Application.WindowState

Case xlMaximized: MsgBox "应用程序窗口已最大化"

Case xlMinimized: MsgBox "应用程序窗口已最小化"

Case xlNormal:

Select Case ActiveWindow.WindowState

Case xlMaximized: MsgBox "当前活动工作簿窗口已最大化"

Case xlMinimized: MsgBox "当前活动工作簿窗口已最小化"

Case xlNormal: MsgBox "当前活动工作簿窗口已恢复正常"

End Select

End Select

End Sub

示例说明：本示例有两个程序，其中testWindow()是主程序，调用子程序textWindowState()，演示了应用程序窗口和工作簿窗口的不同状态。当前活动窗口一般代表当前活动工作簿窗口，读者可以在VBE编辑器中按F8键逐语句运行testWindow()程序，观察Excel应用程序及工作簿窗口的不同状态。此外，在子程序中，还运用了嵌套的Select Case结构。

[示例02-02-03]

Sub SheetGradualGrow()

Dim x As Integer

With ActiveWindow

.WindowState = xlNormal

.Top = 1

.Left = 1

.Height = 50

.Width = 50

For x = 50 To ableHeight

.Height = x

Next x

For x = 50 To ableWidth

.Width = x

Next x

.WindowState = xlMaximized

End With

End Sub