Shape.Combine

Function Combine() As Shape

Member of Shape

The Combine method combines shape into a curve or text object.

The following code example creates two ellipses and combines them into a single curve:

Sub Test() 
 Dim doc As Document 
 Dim e1 As Shape, e2 As Shape 
 Set doc = CreateDocument() 
 Set e1 = doc.ActiveLayer.CreateEllipse2(4, 3, 2) 
 Set e2 = doc.ActiveLayer.CreateEllipse2(4, 5, 3) 
 ' Here e2 is selected. Just add e1 to selection 
 e1.Selected = True 
 Set e1 = doc.Selection.Combine 
 e1.Fill.UniformColor.CMYKAssign 100, 0, 0, 0 
End Sub