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

Window对象代表一个窗口，约有48个属性和14个方法，能对窗口特性进行设置和操作。Window对象是Windows集合中的成员，对于Application对象来说，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

Win dows(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 "当前活动工作簿窗口将最小化"

Win dows(1).Wi ndowState = xlMi nimized

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

Win dows(1).Wi ndowState = xlNormal

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

Win dows(1).Wi ndowState = xlMaximized

End Sub

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

活动窗口总是Windows(1)。

[示例02-02-02]

Sub testWindow()

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

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

Applicati on.Win dowState = xlMaximized

Call testWindowState

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

Applicatio n.Win dowState = xlNormal

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

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

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

ActiveWi ndow.Wi ndowState = xlMi ni mized

Call testWindowState

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

ActiveWi ndow.Wi ndowState = xlMaximized

Call testWindowState

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

ActiveWi ndow.Wi ndowState = xINormal

Call testWindowState

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

Applicati on.Win dowState = xlMi ni mized

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 SheetGradualGrowO

Dim x As Integer

With ActiveWindow

.Win dowState = 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

.Win dowState = xlMaximized

End With

End Sub

示例说明：本示例将动态演示工作簿窗口由小到大直至最大化的变化过程。在运行程序时，您可以将VBE窗口缩小，从而在工作簿中查看动态效果，也可以在Excel中选择菜单中的宏命令执行以查看效果。