Share via

ActiveView Property [Publisher 2003 VBA Language Reference]

  • Article

Returns a View 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

Applies to | Document Object