This example restores each shape on myDocument
to its original state if it's been flipped horizontally or vertically.
For Each s In ActiveDocument.Shapes
If s.HorizontalFlip Then s.Flip msoFlipHorizontal
If s.VerticalFlip Then s.Flip msoFlipVertical
Next