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 rectEnd Sub