Shape.BreakApartEx

Function BreakApartEx() As ShapeRange

Member of Shape

The BreakApartEx method breaks apart the curve and returns the objects as a ShapeRange object.

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

Sub Test() 
 Dim s As Shape, sr As ShapeRange 
 Set s = ActiveLayer.CreateArtisticText(0, 0, "O", , , "Arial Black", 
48) 
 s.ConvertToCurves 
 Set sr = s.BreakApartEx 
 sr(1).Move 0, 0.2 
 sr.Combine 
End Sub