VerticalFlip 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