ch02 窗口_Window对象_基本操作应用示例.pdf

ExcelVBAExcelVBA 编程入门范例窗口(Window 对象)基本操作 第二章 窗口(Window 对象)基本操作应用示例 Window 对象代表一个窗口，约有48 个属性和14 个方法，能对窗口特性进行设置和操作。 Window 对象是Windows 集合中的成员，对于Application 对象来说，Windows 集合包含 该应用程序中的所有窗口；对于Workbook 对象来说，Windows 集合只包含指定工作簿中 的窗口。下面介绍一些示例，以演示和说明Window 对象及其属性和方法的运用。 示例02-01：激活窗口(Activate 方法) Sub SelectW indow() Dim iWin As Long, i As Long, bWin MsgBox 依次切换已打开的窗口 iWin = Windows.Count MsgBox 您已打开的窗口数量为：” iWin For i = 1 To iW in 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 应用程序窗口 恢复正常 2006 年9 月23 日 - 1 - ExcelVBAExcelVBA 编程入门范例窗口(Window 对象)基本操作 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: Se