Note
Access to this page requires authorization. You can try signing in or changing directories.
Access to this page requires authorization. You can try changing directories.
Returns or sets the vertical distance between the edge of the frame and the item specified by the RelativeVerticalPosition property. Read/write Single.
Syntax
expression. VerticalPosition
expression Required. A variable that represents a 'Frame' object.
Remarks
Can be a number that indicates a measurement in points, or can be any valid WdFramePosition constant.
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
See also
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.