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

Dim shpFlip As Shape
For Each shpFlip In ActiveDocument.Shapes
    If shpFlip.HorizontalFlip Then shpFlip.Flip ksoFlipHorizontal
    If shpFlip.VerticalFlip Then shpFlip.Flip ksoFlipVertical
Next