Top 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