Top Property

Applies To

Application object, Shape object, ShapeRange collection object, Task object, Window object.

Description

Application, Task, or Window object: Returns or sets the vertical position of the specified window or task, in points. Read/write Long.

Shape or ShapeRange object: Returns or sets the vertical position (in points) of the specified shape or shape range. Read/write Single.

Remarks

The position of a shape is measured from the upper-left corner of the shape's bounding box to the shape's anchor. The RelativeVerticalPosition property controls whether the shape's anchor is positioned alongside the paragraph, the margin, or the edge of the page.

For a ShapeRange object that contains more than one shape, the Top property sets the vertical position of each shape.

See Also

AddShape method, Height property, Left property, RelativeVerticalPosition property, Width property.

Example

This example positions the Word application window 100 points from the top of the screen.

Application.WindowState = wdWindowStateNormal
Application.Top = 100

This example starts the Calculator and positions its window 100 points from the top of the screen.

Shell "Calc.exe"
With Tasks("Calculator")
    .WindowState = wdWindowStateNormal
    .Top = 100
End With

This example sets the vertical position of the first shape in the active document to 1 inch from the top of the page.

With ActiveDocument.Shapes(1)
    .RelativeVerticalPosition = wdRelativeVerticalPositionPage
    .Top = InchesToPoints(1)
End With

This example sets the vertical position of the first and second shapes in the active document to 1 inch from the top of the page.

With ActiveDocument.Shapes.Range(Array(1, 2))
    .RelativeVerticalPosition = wdRelativeVerticalPositionPage
    .Top = InchesToPoints(1)
End With