ShapeRange.RelativeVerticalPosition procedure builder

ShapeRange.RelativeVerticalPosition (Word)

Specifies the relative vertical position of a range of shapes.

wdRelativeVerticalPositionBottomMarginArea - Relative to bottom margin, wdRelativeVerticalPositionInnerMarginArea - Relative to inner margin area, wdRelativeVerticalPositionLine - Relative to line, wdRelativeVerticalPositionMargin - Relative to margin, wdRelativeVerticalPositionOuterMarginArea - Relative to outer margin area, wdRelativeVerticalPositionPage - Relative to page, wdRelativeVerticalPositionParagraph - Relative to paragraph, wdRelativeVerticalPositionTopMarginArea - Relative to top margin.
With Selection.ShapeRange 
 .Left = InchesToPoints(0.6) 
 .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage 
 .Top = InchesToPoints(1) 
 .RelativeVerticalPosition = wdRelativeVerticalPositionParagraph 
End With