本示例将选定图形对象悬挂。

ActiveDocument.Shapes(1).RelativeHorizontalPosition = wpsRelativeHorizontalPositionMargin