Set myDocument = ActivePresentation.Slides(1).Shapes(1)If myDocument.HorizontalFlip Then myDocument.Flip ksoFlipHorizontalIf myDocument.VerticalFlip Then myDocument.Flip ksoFlipVertical