Previous Document Next Document
Node.BreakApart

Sub BreakApart()

Member of Node

The BreakApart method breaks a subpath at the specified node.

The following code example breaks the curve into individual segments:

Sub Test() 
 Dim s As Shape 
 Dim i As Long 
 Set s = ActiveShape 
 If s.Type <> cdrCurveShape Then s.ConvertToCurves 
 s.Curve.Closed = False 
 For i = s.Curve.Nodes.Count To 1 Step -1 
  s.Curve.Nodes(i).BreakApart 
 Next i 
 s.BreakApart 
End Sub 

Previous Document Next Document Back to Top

Copyright 2007 Corel Corporation. All rights reserved.