本示例将 myDocument 中的图形1 左移 70 磅,下移 50 磅,并逆时针旋转 30 度。

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