HorizontalFlip Property Example
This example restores each shape on myDocument
to its original state if it’s been flipped horizontally or vertically.
Set myDocument = Worksheets(1)
For Each s In myDocument.Shapes
If s.HorizontalFlip Then s.Flip msoFlipHorizontal
If s.VerticalFlip Then s.Flip msoFlipVertical
Next