Word VBA教程:Visible属性

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

VBA示例

当应用于 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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号