Shape.Flip

Sub Flip(Axes As cdrFlipAxes)

Member of Shape

The Flip method flips a shape along one or two axes.

•

To flip the object along both axes in one step, you can combine the two axes.


Parameter	Description
Axes	Specifies the flip type, and returns cdrFlipAxes

The following VBA example creates an illusion of a text object reflected in a mirror.

Sub Test()

Dim s1 As Shape, s2 As Shape

Set s1 = ActiveLayer.CreateArtisticText(2, 5, "Some Text")

With s1.Text.FontProperties

.Name = "Arial"

.Size = 48

.Style = cdrBoldFontStyle

End With

Set s2 = s1.Duplicate(0, 0.5)

s1.Flip cdrFlipHorizontal

s1.Fill.ApplyFountainFill CreateCMYKColor(0, 0, 0, 100), CreateCMYKColor(0, 0, 0, 0), , -90

End Sub