|MsoTriState can be one of these MsoTriState constants.|
expression Required. An expression that returns one of the objects in the Applies To list.
This example restores each shape in the active document to its original state if it's been flipped horizontally or vertically.
Sub FlipShape() Dim shpFlip As Shape For Each shpFlip In ActiveDocument.Shapes If shpFlip.HorizontalFlip Then shpFlip.Flip msoFlipHorizontal If shpFlip.VerticalFlip Then shpFlip.Flip msoFlipVertical Next End Sub