Notitie
Voor toegang tot deze pagina is autorisatie vereist. U kunt proberen u aan te melden of de directory te wijzigen.
Voor toegang tot deze pagina is autorisatie vereist. U kunt proberen de mappen te wijzigen.
Scrolls the publication window so that the specified shape is displayed in the publication window or pane.
Syntax
expression.ScrollShapeIntoView (Shape)
expression A variable that represents a View object.
Parameters
| Name | Required/Optional | Data type | Description |
|---|---|---|---|
| Shape | Required | Shape | 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
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.