| Name | Type | Description |
|---|---|---|
| x |
Double
|
|
| y |
Double
|
|
| PlaceOnTop |
Boolean
|
Specifies whether to place the boundary object in front of the shapes. A value of True places the boundary object in front of the shapes. |
| DeleteSource |
Boolean
|
Specifies whether to delete the object upon which the boundary is based. A value of True deletes the original object. |
Sub Test() Dim shpEllipse As Shape, shpBound As Shape Dim x As Double, y As Double Set shpEllipse = ActiveLayer.CreateEllipse2(0, 0, 6, 4) b = ActiveDocument.GetUserClick(x, y, 0, 10, False, cdrCursorEyeDrop) If b=0 Then Set shpBound = shpEllipse.CreateBoundary(x, y, False, False) shpBound.Fill.UniformColor.RGBAssign 255, 0, 0 End If End Sub