ShapeRange.AddToPowerClip method - Developer Area

API Documentation > CorelDRAW > 2024-v25 > ShapeRange > IVGShapeRange

ShapeRange.AddToPowerClip method

Adds this shape range to a power clip

Syntax:

Sub AddToPowerClip(ByVal Shape As Shape, Optional ByVal CenterInContainer As cdrTriState = cdrUndefined)

Parameters:

Name	Type	Description
Shape	Shape	Specifies the shape range to add
CenterInContainer	cdrTriState	Specifies whether to center the shape range in the PowerClip container.

Remarks:

The AddToPowerClip method adds a shape range to a specified PowerClip container.

Examples:

The following VBA example places 150 randomly-sized and randomly-colored circles inside a text object.

Sub Test()
  Dim sr As New ShapeRange
  Dim s As Shape, n As Long
  For n = 1 To 150
    Set s = ActiveLayer.CreateEllipse2(Rnd() * 4, Rnd() * 2, Rnd() * 0.3)
    s.Fill.UniformColor.RGBAssign Rnd() * 256, Rnd() * 256, Rnd() * 256
    sr.Add s
  Next n
  Set s = ActiveLayer.CreateArtisticText(0, 0, "Clip")
  With s.Text.FontProperties
    .Name = "Arial Black"
    .Size = 150
  End With
  sr.AddToPowerClip s
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