本示例将 myDocument 上的形状复原到其原始状态(如果形状已经水平或垂直翻转)。

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