Shape.AddToPowerClip

Sub AddToPowerClip(Shape As Shape, [CenterInContainer As cdrTriState = cdrUndefined])

Member of Shape

The AddToPowerClip method adds the current shape object to a PowerClip container.


Parameters	Description
Shape	Specifies the PowerClip container
CenterInContainer	This parameter is optional, and its default value is cdrUndefined (-2).

The following code 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