object representing the view attributes for the specified document. Read-only.
expression.ActiveView
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