ActiveView Property

Returns a View object representing the view attributes for the specified document. Read-only.

expression   Required. An expression that returns one of the objects in the Applies To list.

Example

The following example sets the active publication zoom to fill the screen.

Sub SetActiveZoom()
    Dim viewTemp As View

    ActiveDocument.Pages(1).Shapes.AddShape 1, 10, 10, 50, 50
    Set viewTemp = ActiveDocument.ActiveView
    ActiveDocument.Pages(1).Shapes(1).Select
    viewTemp.Zoom = pbZoomFitSelection
End Sub