Previous Document Next Document

Object Model Reference : Classes : S : Shape : Methods : Shape.ConvertToCurves


Shape.ConvertToCurves

Sub ConvertToCurves()

Description

Member of Shape

The ConvertToCurves method converts a shape to a curve.

VBA example

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

Previous Document Next Document Back to Top

Copyright 2013 Corel Corporation. All rights reserved.