Scrolls the publication window so that the specified shape is displayed in the publication window or pane.
expression. ScrollShapeIntoView( Shape)
_expression_A variable that represents a View object.
| Name | Required/Optional | Data Type | Description |
|---|---|---|---|
| Shape | Required | Shape | The shape to scroll into view. |
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