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