本示例将 myDocument 中所有图形的旋转量设置为与图形 1 一致。

Set myDocument = ActiveDocument
With myDocument.Shapes
    sh1Rotation = .Item(1).Rotation
    For i = 1 To .Count
        .Item(i).Rotation = sh1Rotation
    Next
End With