Sub Test() Dim s As Shape, s2 As Shape Dim e As Effect Set s = ActiveLayer.CreateEllipse2(5, 4, 2) s.Fill.UniformColor.RGBAssign 255, 0, 0 Set s2 = ActiveLayer.CreateRectangle(3, 3, 5, 5) s2.Fill.UniformColor.RGBAssign 0, 0, 255 For Each s In ActiveLayer.Shapes.All Set e = s.CreateContour(cdrContourInside, , 5) e.Contour.ContourGroup.CreatePerspective 2, 2 Next sEnd Sub