API Documentation > CorelDRAW > 2025-v26 > ShapeRange > IVGShapeRange
ShapeRange.Combine method
Combines all shapes together
Syntax:
Function Combine() As Shape
Remarks:
The Combine method combines all the shapes in a shape range into a single curve.
Examples:
The following VBA example creates a single shape by combining a set of circles.
Sub Test()
Const Num As Long = 15
Dim sr As New ShapeRange
Dim s As Shape, n As Long
Set s = ActiveLayer.CreateEllipse2(4, 4, 1)
s.SetRotationCenter 4, 5
For n = 1 To Num - 1
  sr.Add s.Duplicate
  s.Rotate 360 / Num
Next n
sr.Add s
Set s = sr.Combine
s.Fill.UniformColor.RGBAssign 255, 0, 0 
End Sub