Displays a rubber-band rectangle on the Map and returns a Rectangle object.
Set variable = object.TrackRectangle
Scripts that use the TrackRectangle method should be called when an OnPointerDown event occurs for a ToolItem object. The user would click the ToolItem object (tool button), press and hold the mouse button to start the Rectangle, then drag the mouse pointer to the opposite corner of the shape as required, and then release the mouse button to end the Rectangle.
Zooms in to the extent defined by the Rectangle returned by the TrackRectangle method.
|TrackRectangle Example (VBScript)||Copy Code|
Set objRect = Application.Map.TrackRectangle
If Not objRect Is Nothing Then
Application.Map.Extent = objRect
Set objRect = Nothing