Shape.BreakApart

Sub BreakApart()

Member of Shape

The BreakApart method breaks curve or text objects into subpaths, or words or characters.

The following code example creates the letter “O” and converts it to a curve. It breaks the two subpaths into separate objects. The inner path is then moved upwards by 0.2", and the two paths are combined into a single curve shape.

Sub Test() 
 Dim s As Shape, sr As ShapeRange 
 Set s = ActiveLayer.CreateArtisticText(0, 0, "O") 
 With s.Text.FontProperties 
  .Name = "Arial Black" 
  .Size = 48 
 End With 
 s.ConvertToCurves 
 s.BreakApart 
 Set sr = ActiveSelectionRange 
 sr(1).Move 0, 0.2 
 sr.Combine 
End Sub