Dim shpFlip As Shape For Each shpFlip In ActiveDocument.Shapes If shpFlip.HorizontalFlip Then shpFlip.Flip ksoFlipHorizontal If shpFlip.VerticalFlip Then shpFlip.Flip ksoFlipVertical Next