Hello Everyone.
I have been searching for an answer to this question for hours, hopefully someone will have the solution for me.
I have created a map, selected a location and then created a series of circles 2.5 miles in radius from the location. Each circle(shape) has a name, ie zone1, zone2, zone3 etc. i now wish to be able to select each shape and perform series of searches for that area(shape).
Here is my problem:
I can not figure out how to programaticly refer to the shape and make it the selected shape.
here is the same code:
Dim objmap As MapPoint.map
Set objmap = Forms!csgmAP.csgmAP.ActiveMap
Dim objloc As MapPoint.Location
Dim addy As String
Set objloc = objmap.FindResults(Forms!popplot.Scaddy).Item(1)
Set objPushPin = objmap.AddPushpin(objloc, Forms!popplot.Scaddy)
objPushPin.Name = Forms![popplot]![mapschools].Form![Name]
objPushPin.Note = Forms![popplot]![mapschools].Form![id]
objPushPin.BalloonState = geoDisplayBalloon
objPushPin.symbol = Forms![popplot]![mapschools].Form![symbol]
objPushPin.Highlight = True
Dim objroute As MapPoint.route
Set objroute = objmap.ActiveRoute
objmap.ActiveRoute.Waypoints.Add objloc
objloc.Goto
Dim x As Integer
Dim mapshape As MapPoint.Shape
Dim dblRadSize As Integer
Dim c As Double
x = 50
c = 14872316
' Create circles from 5 to 25 miles
Dim iRad, i As Double
iRad = 25.02
For i = 1 To 5
Set mapshape = objmap.Shapes.AddShape(geoShapeRadius, objloc, iRad, iRad)
mapshape.Line.Weight = 0
mapshape.Name = "Zone" & CStr(i)
mapshape.Line.Visible = True
mapshape.Fill.Visible = True
mapshape.Fill.ForeColor = c
mapshape.ZOrder (geoSendBehindRoads)
mapshape.SizeVisible = True
'creates a unique color for each circle
c = c - (i * 825)
iRad = iRad - 5
MsgBox "Name of shape: " + mapshape.Name
mapshape.Select
Next i
objmap.Altitude = objmap.Altitude * 20
Your help would be very much appreciated
Thanks
Randye
(CSG)