Question

全部显示

应用于 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，则某些方法和属性可能无法使用。

示例

当应用于 Application 对象时。

本示例隐藏 Microsoft Word。

Application.Visible = False

当应用于 Task 对象时。

如果计算器正在运行，则本示例将其隐藏。如果未运行计算器，则显示一条消息。

If Tasks.Exists("Calculator") Then
 Tasks("Calculator").Visible = False
Else
 Msgbox "Calculator is not running."
End If

当应用于 Border 对象时。

本示例在活动文档中创建一张表格，并删除表格的默认边框。

Set myTable = ActiveDocument.Tables.Add(Range:=Selection.Range, _
 NumRows:=12, NumColumns:=5)
For Each aBorder In myTable.Borders
 aBorder.Visible = False
Next aBorder

当应用于 Shape 对象时。

本示例隐藏活动文档中第一个图形的阴影格式。

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