应用于 FillFormat、LineFormat、ShadowFormat、Shape、ShapeRange 和 ThreeDFormat 对象的 Visible 属性。
如果该属性值为 True,则指定对象或应用于该对象的格式是可见的。MsoTriState,可读写。
MsoTriState 可以是下列 MsoTriState 常量之一: |
msoCTrue |
msoFalse |
msoTriStateMixed |
msoTriStateToggle |
msoTrue |
expression.Visible
expression 必需。该表达式返回上述对象之一。
应用于 Application、Border、Reviewer、Task、TaskPane 和 Window 对象的 Visible 属性。
如果该属性值为 True,则指定对象可见。Boolean 类型,可读写。
expression.Visible
expression 必需。该表达式返回上述对象之一。
对于任何对象,如果其 Visible 属性值为 False,则某些方法和属性可能无法使用。
本示例隐藏 Microsoft Word。
Application.Visible = False
如果计算器正在运行,则本示例将其隐藏。如果未运行计算器,则显示一条消息。
If Tasks.Exists("Calculator") Then
Tasks("Calculator").Visible = False
Else
Msgbox "Calculator is not running."
End If
本示例在活动文档中创建一张表格,并删除表格的默认边框。
Set myTable = ActiveDocument.Tables.Add(Range:=Selection.Range, _
NumRows:=12, NumColumns:=5)
For Each aBorder In myTable.Borders
aBorder.Visible = False
Next aBorder
本示例隐藏活动文档中第一个图形的阴影格式。
ActiveDocument.Shapes(1).Shadow.Visible = False
本示例新建一篇文档,然后在文档中添加文本和一个矩形。并且本示例设置 Word 在打印文档时隐藏该矩形,在打印结束后再显示该图形。
Set myDoc = Documents.Add
Selection.TypeText Text:="This is some sample text."
With myDoc
.Shapes.AddShape msoShapeRectangle, 200, 70, 150, 60
.Shapes(1).Visible = False
.PrintOut
.Shapes(1).Visible = True
End With