ScrollShapeIntoView Method

Microsoft Publisher Visual Basic

expression.ScrollShapeIntoView(Shape)

expression    Required. An expression that returns a View object.

Shape   Required Shape object. The shape to scroll into view.

Example

This example adds a shape to a new page and scrolls the current view to the new shape.

Sub ScrollIntoView()
    Dim shpStar As Shape
    Dim intWidth As Integer
    Dim intHeight As Integer

    With ActiveDocument
        intWidth = .PageSetup.PageWidth
        intWidth = (intWidth / 2) - 75
        intHeight = .PageSetup.PageHeight
        intHeight = (intHeight / 2) - 75

        With .Pages.Add(Count:=1, After:=ActiveDocument.Pages.Count)
            Set shpStar = .Shapes.AddShape(Type:=msoShape5pointStar, _
                Left:=intWidth, Top:=intHeight, Width:=150, Height:=150)
            shpStar.TextFrame.TextRange.Text = "New Star Shape"
        End With
    End With

    ActiveView.ScrollShapeIntoView Shape:=shpStar

End Sub