AddRangeRing

AddRangeRing adds a new range ring shape. Returns a RangeRing object.

Syntax

object. AddRangeRing( X, Y, ShowSquare, ShowCenter, Radius, Rings )

Parameter	Type	Description
X	Double	required; This provides the X coordinate of the range ring center
Y	Double	required; This provides the Y coordinate of the range ring center
ShowSquare	Boolean	required; 'True' to display rings as squares. 'False' to display rings as circles
ShowCenter	Boolean	required; 'True' to display a symbol at the range ring center. 'False' to hide the range ring center symbol
Radius	Double	required; This provides the range ring radius distance
Rings	Long	required; This provides the number of rings

Remarks

Either page units or map coordinates are used in the X, Y, and Radius parameters. When the range ring is added to the plot, use page units for the X and Y parameters and inches for the Radius parameter. When the range ring is added to a map layer, use map coordinates to specify the X, Y, and Radius parameters.

Example

This example demonstrates how to create a range ring.

'declare RangerRing object and create a new range ring

Dim RangeRing As Object

Set RangeRing = Shapes.AddRangeRing(X:=5, Y:=7, ShowSquare:=False, _

ShowCenter:=True, Radius:0.5, Rings:=3)

Used by: Shapes collection