ShapeRange.AddToPowerClip

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

The AddToPowerClip method adds the range of shapes to the specified PowerClip container.


Parameters	Description
Shape	Identifies the range that is added to the PowerClip
CenterInContainer	This parameter is optional, and its default value is cdrUndefined (-2).

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