For Each s In ActiveDocument.Shapes If s.HorizontalFlip Then s.Flip ksoFlipHorizontal If s.VerticalFlip Then s.Flip ksoFlipVerticalNext