水平或垂直翻转一个图形。
expression.Flip(FlipCmd)
expression 必需。该表达式返回“应用于”列表中的一个对象。
FlipCmd MsoFlipCmd,必需。翻转的方向。
MsoFlipCmd 可以是下列 MsoFlipCmd 常量之一: |
msoFlipHorizontal |
msoFlipVertical |
本示例首先向活动文档添加一个三角形,然后复制此三角形,再垂直翻转复制的三角形并将其设为红色。
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