Visible Property

This content is no longer actively maintained. It is provided as is, for anyone who may still be using these technologies, with no warranties or claims of accuracy with regard to the most recent product version or service release.

Visible property as it applies to the FillFormat, LineFormat, ShadowFormat, Shape, ShapeRange, and ThreeDFormat objects.

MsoTriState

expression.Visible

expression   Required. An expression that returns one of the above objects.

Visible property as it applies to the Application, Border, Reviewer, Task, TaskPane, and Window objects.

True if the specified object is visible. Read/write Boolean.

expression.Visible

expression   Required. An expression that returns one of the above objects.

Remarks

For any object, some methods and properties may be unavailable if the Visible property is False.

Example

As it applies to the Application object.

This example hides Microsoft Word.

  Application.Visible = False

As it applies to the Task object.

This example hides the Calculator, if it's running. If it's not running, a message is displayed.

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

As it applies to the Border object.

This example creates a table in the active document and removes the default borders from the table.

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

As it applies to the Shape object.

This example hides the shadow formatting for the first shape in the active document.

  ActiveDocument.Shapes(1).Shadow.Visible = False

This example creates a new document and then adds text and a rectangle to it. The example also sets Word to hide the rectangle while the document is being printed and then to make it visible again after printing is completed.

  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