全部显示

Flip 方法

       

水平或垂直翻转一个图形。

expression.Flip(FlipCmd)

expression   必需。该表达式返回“应用于”列表中的一个对象。

FlipCmd  MsoFlipCmd,必需。翻转的方向。

示例

本示例首先向活动文档添加一个三角形,然后复制此三角形,再垂直翻转复制的三角形并将其设为红色。

Sub FlipShape()
    With ActiveDocument.Shapes.AddShape( _
        Type:=msoShapeRightTriangle, Left:=150, _
        Top:=150, Width:=50, Height:=50).Duplicate
        .Fill.ForeColor.RGB = RGB(Red:=255, Green:=0, Blue:=0)
        .Flip msoFlipVertical
    End With
End Sub