| Name | Type | Description |
|---|---|---|
| x |
Double
|
|
| y |
Double
|
|
| HotArea |
Double
|
Specifies the tolerance radius in which to evaluate the presence of the shape. |
Sub Test() Dim s As Shape Dim x As Double, y As Double While ActiveDocument.GetUserClick(x, y, 0, 100, False, cdrCursorPickOvertarget) = 0 For Each s In ActivePage.Shapes Select Case s.IsOnShape(x, y) Case cdrOnMarginOfShape If s.Outline.Type = cdrOutline Then s.Outline.Color.RGBAssign 255, 255, 0 Exit For End If Case cdrInsideShape s.Fill.UniformColor.RGBAssign 255, 255, 0 Exit For End Select Next s Wend End Sub