ShapeRange.RelativeHorizontalPosition procedure builder

ShapeRange.RelativeHorizontalPosition (Word)

Specifies the relative horizontal position of a range of shapes.

wdRelativeHorizontalPositionCharacter - Relative to character, wdRelativeHorizontalPositionColumn - Relative to column, wdRelativeHorizontalPositionInnerMarginArea - Relative to inner margin area, wdRelativeHorizontalPositionLeftMarginArea - Relative to left margin, wdRelativeHorizontalPositionMargin - Relative to margin, wdRelativeHorizontalPositionOuterMarginArea - Relative to outer margin area, wdRelativeHorizontalPositionPage - Relative to page, wdRelativeHorizontalPositionRightMarginArea - Relative to right margin.
With Selection.ShapeRange 
 .Left = InchesToPoints(0.6) 
 .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage 
 .Top = InchesToPoints(1) 
 .RelativeVerticalPosition = wdRelativeVerticalPositionParagraph 
End With