This browser is no longer supported.
Upgrade to Microsoft Edge to take advantage of the latest features, security updates, and technical support.
Set myFrame = ActiveDocument.Frames.Add(Range:=Selection.Range) With myFrame .RelativeHorizontalPosition = _ wdRelativeHorizontalPositionMargin .HorizontalPosition = wdFrameRight End With
As it relates to the wdRelativeHorizontalPositionPage constant.This example repositions the selected shape object. With Selection.ShapeRange .Left = InchesToPoints(0.6) .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage .Top = InchesToPoints(1) .RelativeVerticalPosition = wdRelativeVerticalPositionParagraph End With