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.


Parameter	Description
Shape	Specifies the PowerClip container
CenterInContainer	Specifies how to center the shape object in the PowerClip container. This parameter is optional, and its default value is cdrUndefined (-2).

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