Sub Test() Dim sr As New ShapeRange, shpBoundary As Shape Dim x As Double, y As Double sr.Add ActiveLayer.CreateEllipse(3, 5, 6, 2) sr.Add ActiveLayer.CreateRectangle(5, 6, 7, 4) If ActiveDocument.GetUserClick(x, y, 0, 10, False, cdrCursorEyeDrop) = 0 Then Set shpBoundary = sr.CreateBoundary(x, y, True) shpBoundary.Fill.UniformColor.RGBAssign 255, 0, 0 End IfEnd Sub