Visible 属性

如果该属性值为 True，则指定对象或应用于该对象的格式是可见的。MsoTriState，可读写。

MsoTriState 可以是下列 MsoTriState 常量之一：

msoCTrue

msoFalse

msoTriStateMixed

msoTriStateToggle

msoTrue

expression.Visible

expression 必需。该表达式返回上述对象之一。

如果该属性值为 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