VerticalPosition Property

Returns or sets the vertical distance between the edge of the frame (for the Frame object) or the rows (for the Rows object) and the item specified by the RelativeVerticalPosition property. Can be a number that indicates a measurement in points, or can be any valid  WdFramePosition constant. For a list of valid constants, consult the Microsoft Visual Basic Object Browser. Read/write Single.

expression   Required. An expression that returns one of the objects in the Applies To list.

Example

This example vertically aligns the first frame in the active document with the top of the page.

Set myFrame = ActiveDocument.Frames(1)
With myFrame
    .RelativeVerticalPosition = wdRelativeVerticalPositionPage
    .VerticalPosition = wdFrameTop
End With

This example adds a frame around the first shape in the active document and positions the frame 1 inch from the top margin.

If ActiveDocument.Shapes.Count >= 1 Then
    ActiveDocument.Shapes(1).Select
    Set aFrame = ActiveDocument.Frames.Add(Range:=Selection.Range)
    With aFrame
        .RelativeVerticalPosition = _
            wdRelativeVerticalPositionMargin
        .VerticalPosition = InchesToPoints(1)
    End With
End If

This example vertically aligns the first table in the active document with the top of the page.

Set myTable = ActiveDocument.Tables(1).Rows
With myTable
    .RelativeVerticalPosition = wdRelativeVerticalPositionPage
    .VerticalPosition = wdTableTop
End With