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