VerticalPosition Property Example

This example aligns the first frame in the active document vertically 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 aligns the first table in the active document vertically with the top of the page.

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