当前位置：搜档网 › 窗口(Window对象)基本操作应用示例

窗口(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 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 https://www.sodocs.net/doc/db12842126.html,ableHeight

.Height = x

Next x

For x = 50 To https://www.sodocs.net/doc/db12842126.html,ableWidth

.Width = x

Next x

.WindowState = xlMaximized

End With

End Sub

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

示例02-03：切换显示工作表元素

[示例02-03-01]

Sub testDisplayHeading()

MsgBox “切换显示/隐藏行列标号”

ActiveWindow.DisplayHeadings = Not ActiveWindow.DisplayHeadings

End Sub

示例说明：本示例切换是否显示工作表中的行列标号。运行后，工作表中的行标号和列标号将消失；再次运行后，行列标号重新出现，如此反复。您也可以将该属性设置为False，以取消行列标号的显示，如ActiveWindow.DisplayHeadings = False；而将该属性设置为T rue，则显示行列标号。

[示例02-03-02]

Sub testDisplayGridline()

MsgBox “切换显示/隐藏网格线”

ActiveWindow.DisplayGridlines = Not ActiveWindow.DisplayGridlines

End Sub

示例说明：本示例切换是否显示工作表中的网格线。运行后，工作表中的网格线消失，再次运行后，网格线重新出现，如此反复。您也可以将该属性设置为False，以取消网格线显示，如ActiveWindow.DisplayGridlines = False；而将该属性设置为True，则显示网格线。[示例02-03-03]

Sub DisplayHorizontalScrollBar()

Msg Box “切换显示/隐藏水平滚动条”

ActiveWindow.DisplayHorizontalScrollBar = _

Not ActiveWindow.DisplayHorizontalScrollBar

End Sub

示例说明：本示例切换是否显示工作表中的水平滚动条。运行后，工作表中的水平滚动条消失，再次运行后，水平滚动条重新出现，如此反复。您也可以将该属性设置为False，以取消水平滚动条，如ActiveWindow.DisplayHorizontalScrollBar = False；而将该属性设置为True，则显示水平滚动条。

同理，DisplayVerticalScrollBar属性将用来设置垂直滚动条。

[示例02-03-04]

Sub DisplayScrollBar()

MsgBox "切换显示/隐藏水平和垂直滚动条"

Application.DisplayScrollBars = Not (Application.DisplayScrollBars)

End Sub

示例说明：本示例切换是否显示工作表中的水平和垂直滚动条。运行后，工作表中的水平和垂直滚动条同时消失，再次运行后，水平和垂直滚动条重新出现，如此反复。您也可以将该属性设置为False，以取消水平和垂直滚动条显示，如Application.DisplayScrollBars = False；而将该属性设置为True，则显示水平和垂直滚动条。

示例02-04：显示公式(DisplayFormulas属性)

Sub DisplayFormula()

MsgBox “显示工作表中包含公式的单元格中的公式”

ActiveWindow.DisplayFormulas = True

End Sub

With ActiveWindow

.SplitColumn = iColumn

.SplitRow = iRow

End With

MsgBox "恢复原来的窗口状态"

ActiveWindow.Split = False

End Sub

[示例02-09-02]

Sub SplitWindow()

Dim iRow As Long, iColumn As Long

MsgBox "以活动单元格为基准拆分窗格"

iRow = ActiveCell.Row

iColumn = ActiveCell.Column

With ActiveWindow

.SplitColumn = iColumn

.SplitRow = iRow

End With

MsgBox "恢复原来的窗口状态"

ActiveWindow.SplitColumn = 0

ActiveWindow.SplitRow = 0

End Sub

示例说明：本示例演示了以活动单元格为基准拆分窗格。如果指定窗口被拆分，则Split属性的值为True；设置该属性的值为False则取消窗格拆分。也可以设置SplitColumn属性和SplitRow属性的值来取消窗格拆分。

示例02-10：冻结窗格(FreezePanes属性)

Sub testFreezePane()

MsgBox “冻结窗格”

ActiveWindow.FreezePanes = True

End Sub

示例说明：运行本程序后，将会冻结活动单元格所在位置上方和左侧的单元格区域。将该属性的值设置为False，将取消冻结窗格。

示例02-11：设置网格线颜色(GridlineColor属性和GridlineColorIndex属性)

Sub setGridlineColor()

Dim iColor As Long

iColor=ActiveWindow.GridlineColor

MsgBox "将活动窗口的网格线颜色设为红色"

ActiveWindow.GridlineColor = RGB(255, 0, 0)

MsgBox "将活动窗口的网格线颜色设为蓝色"

ActiveWindow.GridlineColorIndex = 5

MsgBox “恢复为原来的网格线颜色”

ActiveWindow.GridlineColorIndex=iColor

End Sub

示例说明：运行程序后，当前工作表窗口网格线将被设置为红色。其中，GridlineColorIndex属性可以用于返回或设置网格线的颜色，下面给出了默认调色板中颜色的编号值：

MsgBox "请确保应用程序至少含有两个工作簿,这样才能看出效果"

MsgBox “窗口将平铺显示”

Windows.Arrange ArrangeStyle:=xlArrangeStyleTiled

MsgBox “窗口将层叠显示”

Windows.Arrange ArrangeStyle:=xlArrangeStyleCascade

MsgBox “窗口将水平排列显示”

Windows.Arrange ArrangeStyle:=xlArrangeStyleHorizontal

MsgBox “窗口将垂直并排排列显示”

Windows.Arrange ArrangeStyle:=xlArrangeStyleVertical

End Sub

示例说明：运行本程序后，将平铺应用程序中的所有窗口。Arrange方法用于对屏幕上的窗口进行排列，其语法为expression.Arrange(A rrangeStyle, ActiveWorkbook, SyncHorizontal, SyncVertical)，所有的参数均为可选参数。其中，参数ArrangeStyle代表排列样式，可为以下常量：常量xlArrangeStyleTiled为缺省值，表示将平铺窗口；常量xlArrangeStyleCascade表示将窗口进行层叠；常量xlAr rangeStyleHorizontal表示将水平排列所有窗口；常量xlArrangeStyleVertical表示将垂直并排排列所有窗口。您可以在上面的程序中测试这些常量，以体验效果。将参数ActiveWorkbook设置为True，则只对当前工作簿的可见窗口进行排列。如果为False，则对所有窗口进行排列。默认值为 False。设置参数SyncHorizontal为True，在水平滚动时同步滚动当前工作簿的所有窗口；如果为 False，则不同步滚动。设置参数SyncVertical为True，则在垂直滚动时同步滚动当前工作簿的所有窗口；如果为 False，则不同步滚动，默认值为 False。如果参数ActiveWorkbook为False或者省略，则参数SyncHorizontal和SyncVertical被忽略。

示例02-17：窗口尺寸(UsableHeight、UsableWidth、Height、Width属性)

Sub testActiveWindowSize()

MsgBox "当前窗口可用区域的高度为:" & https://www.sodocs.net/doc/db12842126.html,ableHeight

MsgBox "当前窗口的高度为:" & ActiveWindow.Height

MsgBox "当前窗口可用区域的宽度为:" & https://www.sodocs.net/doc/db12842126.html,ableWidth

MsgBox "当前窗口的宽度为:" & ActiveWindow.Width

End Sub

示例02-18：水平排列两个窗口

Sub testWindowArrange()

Dim ah As Long, aw As Long

Windows.Arrange xlArrangeStyleTiled

ah = Windows(1).Height

aw = Windows(1).Width + Windows(2).Width

With Windows(1)

.Width = aw

.Height = ah / 2

.Left = 0

End With

With Windows(2)

.Width = aw

.Height = ah / 2

.Top = ah / 2

.Left = 0

End With

ActiveWindow.Zoom = 200

MsgBox "以正常大小显示窗口"

ActiveWindow.Zoom = 100

End Sub

示例说明：Zoom属性将以百分数的形式(100表示正常大小，200表示双倍大小，以此类推)返回或设置窗口的显示大小。如果本属性为True，则可将窗口大小设置成与当前选定区域相适应的大小。本功能仅对窗口中当前的活动工作表起作用，若要对其他工作表使用本属性，必须先激活该工作表。

示例02-26：激活窗口(ActivateNext方法和ActivatePrevious方法)

[示例02-26-01]

Sub testActivateWindow1()

MsgBox "若已打开Book1.xls、Book2.xls和Book3.xls三个工作簿且Book1.xls为当前窗口" & Chr(10) & "则按Book3.xls-Book2. xls-Book1.xls依次激活窗口"

ActiveWindow.ActivateNext