ShapeRange.Combine method - Developer Area

C++/CLI
C++
C#
VB
VBA

API Documentation > CorelDRAW > 2018 > 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

Version Information:

CorelDRAW:	X7.4, X7, X7.6, X8, 2017, 2018, 2019, 2019.2, 2020, 2021, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25
Corel DESIGNER:	X7, 2017.1, 20.1, 2019.2, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25