1、修改并获取当前窗口标题
Private Sub test()
Windows(1).Caption = "My Excel"
MsgBox ("当前窗口标题：" & ActiveWindow.Caption)
End Sub
注：活动窗口总是Windows(1)，当前（活动）窗口也可以用ActiveWindow表示。
2、显示单元格中的公式
Private Sub test()
ActiveWindow.DisplayFormulas = True
End Sub
注：该属性适用于当前指定的工作表或宏工作表。
3、隐藏网格线及工作标签
Private Sub test()
Worksheets("sheet1").Activate '设置活动窗口
ActiveWindow.DisplayGridlines = False '隐藏网格线
ActiveWindow.DisplayWorkbookTabs = False '隐藏工作标签
End Sub
注：网格线的设置仅适用于当前或指定的工作表和宏工作表。
4、调整窗口显示比例
Private Sub test()
Windows(1).Zoom = 50 '设置为50%
End Sub
5、显示窗口标尺
Private Sub test()
Windows(1).DisplayRuler = False
End Sub
6、隐藏窗口中的零值
Private Sub test()
Windows(1).DisplayZeros = False
End Sub
7、选择合适的视图方式
Private Sub test()
Windows(1).View = xlPageLayoutView
End Sub
Window.View属性取值如下
|
值
|
说明
|
|
xlNormal
|
普通视图
|
|
xlPageBreakPreview
|
分页预览视图
|
|
xlPageLayoutVIew
|
页面布局视图
|
8、保存并关闭工作薄窗口
Private Sub test()
Windows(1).Close (True) ‘设置为false则不保存更改
End Sub
|
