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

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