VBA专题10-4：使用VBA操控Excel界面之设置工作簿视图和窗口
VBA专题10-4：使用VBA操控Excel界面之设置工作簿视图和窗口
下面是设置工作簿视图和窗口的一些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》，仅供学习研究。