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