本示例将活动文档中第一个图形的垂直位置设为距页面顶部 1 英寸。

With ActiveDocument.Shapes(1)
    .RelativeVerticalPosition = wpsRelativeVerticalPositionPage
    .Top = InchesToPoints(1)
End With