Shape.Flip

Sub Flip(Axes As cdrFlipAxes)

Member of Shape

The Flip method flips a shape along one or two axes. You can combine the two axes to flip the object along both in one step.


Parameters	Description
Axes	Sets the manner of the flip of a shape. This value returns cdrFlipAxes.

The following code 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