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社群,进行技术交流和提问,获取更多电子资料。
|
|
来自: hercules028 > 《VBA》