Object Model Reference : Classes : S : Shape : Methods : Shape.ConvertToCurves |
Sub ConvertToCurves()
Member of Shape
The ConvertToCurves method converts a shape to a curve.
The following VBA example creates a jagged text object.
Sub Test() |
Dim s As Shape, n As Node |
Set s = ActiveLayer.CreateArtisticText(0, 0, "Jagged") |
With s.Text.FontProperties |
.Name = "Arial" |
.Style = cdrBoldFontStyle |
.Size = 140 |
End With |
s.ConvertToCurves |
For Each n In s.Curve.Nodes |
n.Move (Rnd() - 0.5) * 0.2, (Rnd() - 0.5) * 0.2 |
Next n |
End Sub |
Copyright 2013 Corel Corporation. All rights reserved.