API Documentation > CorelDRAW > 2025-v26 > Shape > IVGShape
Shape.AddToPowerClip method
Adds this shape to a PowerClip object
Syntax:
Sub AddToPowerClip(ByVal Shape As Shape, Optional ByVal CenterInContainer As cdrTriState = cdrUndefined)
Parameters:
Name Type Description
Shape
CenterInContainer
Specifies how to center the shape object in the PowerClip container.
Remarks:
The AddToPowerClip method adds the current shape object to a PowerClip container.
Examples:
The following VBA example creates a rectangle and an ellipse, and it then places the ellipse inside the rectangle.
Sub Test()
Dim rect As Shape, ell As Shape
Set rect = ActiveLayer.CreateRectangle(0, 0, 4, 3)
rect.Fill.UniformColor.RGBAssign 255, 0, 0
Set ell = ActiveLayer.CreateEllipse(2, 1, 5, 4)
ell.Fill.UniformColor.RGBAssign 255, 255, 0
ell.AddToPowerClip rect 
End Sub