excel vba 使用mschart_VBA专题104：使用VBA操控Excel界面之设置工作簿视图和窗口

学习Excel技术，关注微信公众号：

excelperfect

下面是设置工作簿视图和窗口的一些VBA代码。

工作簿视图

可以选择使用普通视图、页面布局视图、分页预览视图来显示工作表。

普通视图

示例代码：

'以普通视图显示活动窗口中的活动工作表

ActiveWindow.View = xlNormalView

分页预览

示例代码：

'以分页预览显示活动窗口中的活动工作表

ActiveWindow.View = xlPageBreakPreview

页面布局视图

示例代码：

'以页面布局视图显示活动窗口中的活动工作表

ActiveWindow.View = xlPageLayoutView

如果活动工作表不是标准工作表，那么上述语句执行时会导致运行时错误，因为图表工作表、宏工作表或对话框工作表没有这些视图选项。

窗口视图

最大化、最小化、恢复，以全屏模式显示活动窗口

示例代码：

'最大化,最小化,以及恢复活动窗口

With ActiveWindow

    .WindowState = xlMaximized

    .WindowState =xlMinimized

    .WindowState = xlNormal

End With

'以全屏模式显示活动窗口

Application.DisplayFullScreen = True

'关闭全屏模式

Application.DisplayFullScreen = False

活动窗口的位置和大小

示例代码：

'设置活动窗口的位置和大小

With ActiveWindow

    .WindowState = xlNormal

    .Top = 0

    .Left = 0

    .Width = 400

    .Height = 300

End With

居中活动窗口

示例代码：

'居中活动窗口

'获取最大宽度和高度

Dim mWidth As Integer

Dim mHeight As Integer

With ActiveWindow

    .WindowState =xlMaximized

    mWidth = .Width

    mHeight = .Height

End With

'居中窗口

With ActiveWindow

    .WindowState = xlNormal

    .Top = (mHeight -.Height) / 2

    .Left = (mWidth - .Width)/ 2

End With

拆分活动窗口成窗格

示例代码：

'拆分活动窗口中的活动工作表在第5行上下分格

With ActiveWindow

    .SplitRow = 5

    .SplitColumn = 0

End With

'拆分活动窗口中的活动工作表在第4列左右分格

With ActiveWindow

    .SplitRow = 0

    .SplitColumn = 4

End With

'拆分活动窗口中的活动工作表为4个窗格

'在第5行和第4列分界

With ActiveWindow

    .SplitRow = 5

    .SplitColumn = 4

End With

'清除拆分窗格

ActiveWindow.Split = False

冻结活动窗口的拆分窗格

示例代码：

'在第2行冻结活动窗口中的活动工作表

'即第1行和第2行被冻结

With ActiveWindow

    .SplitRow = 2

    .SplitColumn = 0

    .FreezePanes = True

End With

'当滚动工作表时第1行和第2行保持可见

'在第1列冻结活动窗口中的活动工作表

'即第1列被冻结

With ActiveWindow

    .SplitRow = 0

    .SplitColumn = 1

    .FreezePanes = True

End With

'冻结活动窗口中的活动工作表的前2行和第1列

With ActiveWindow

    .SplitRow = 2

    .SplitColumn = 1

    .FreezePanes = True

End With

当冻结活动窗口的拆分窗格后，在滚动工作表时被冻结的列和行将保持可见。被冻结的列和行是被冻结的区域。

'取消冻结窗格

With ActiveWindow

    .FreezePanes = False

    '如果删除了拆分窗格,也需要下列代码行

    '因为ActiveWindow对象的Split属性可能初始化为True

    .Split = False

End With

说明：本专题系列大部分内容学习整理自《Dissectand Learn Excel VBA in 24 Hours：Changingworkbook appearance》，仅供学习研究。

欢迎在下面留言，完善本文内容，让更多的人学到更完美的知识。

欢迎到知识星球：完美Excel社群，进行技术交流和提问，获取更多电子资料。