本示例将 myDocument 中的图形1 右移 70 磅,上移 50 磅,并顺时针旋转 30 度。

Set myDocument = ActiveDocument
With myDocument.Shapes(1)
    .IncrementLeft 70
    .IncrementTop -50
    .IncrementRotation 30
End With