本示例将 myDocument 中所有曾进行水平或垂直翻转的图形还原至初始状态。

For Each s In ActiveDocument.Shapes
    If s.HorizontalFlip Then s.Flip ksoFlipHorizontal
    If s.VerticalFlip Then s.Flip ksoFlipVertical
Next