NodeRange.BreakApart

Sub BreakApart()

The BreakApart method breaks a curve at each node in the range of nodes.

The following code example breaks the selected curve into a set of individual segments and then scatters each segment randomly:

Sub Test() 
 Dim s As Shape 
 Set s = ActiveShape 
 s.Curve.Nodes.All.BreakApart ' Break apart curve into multiple 
subpaths 
 s.BreakApart ' Break apart subpaths into individual shapes 
 For Each s In ActiveSelection.Shapes 
  s.Move Rnd() - 0.5, Rnd() - 0.5 
 Next s 
End Sub