VerticalFlip Property Example

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