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