本示例将第一个窗口中选定的所有图形,垂直翻转并使之变红。

With Windows(1).Selection.ShapeRange
    .Fill.ForeColor.RGB = RGB(255, 0, 0)
    .Flip ksoFlipVertical
End With