RangeRing Object

The RangeRing object contains the properties of a range ring. Range rings are added with the AddRangeRing method of the Shapes collection.

Derived from: Shape object (All methods and properties of Shape apply to this object.)

The following table provides the properties of the RangeRing object.




This provides the range ring radius distance


This provides the number of rings


'True' to display a symbol at the range ring center. 'False' to hide the range ring center symbol


'True' to display rings as squares. 'False' to display rings as circles


The following script demonstrates how the RangeRing object is used in reference to the Shapes collection.

Sub Main


Dim SurferApp As Object

Set SurferApp = GetObject(, "Surfer.Application")

SurferApp.Visible = True


Dim Plot As Object

Set Plot = SurferApp.Documents.Add

Set MapFrame = Plot.Shapes.AddBaseMap(ImportFileName:=SurferApp.Path+"\samples\co2010.gsb")

Set BaseLayer = MapFrame.Overlays(1)


'Create Range Ring

Set RangeRing = BaseLayer.Shapes.AddRangeRing (x:=-104.568, y:=38.851, showsquare:=False, showcenter:=False, radius:=0.4, rings:=2)


End Sub