MapForums

Is it possible to map customers sales by sized circles and reps by the color of the circle (same circle) in MapPoint 2006?

Yes you can do this in MapPoint 2006, but you have to use some custom programming rather than the Sized Circle option in the Data Mapping Wizard. You can plot circles using AddShape to define a circle with a given location and radius. To represent sales the area of each circle needs to be proportionate to sales so the radius of each circle will be

iRad = Sqr(SalesValue / Pi) * SizeFactor

with the size factor being any constant that makes the circles a sensible size for the map (I usually use trial and error here). You can then block fill each circle in one of 8 colours using

objMap.Shapes.Item(NCircleIndex).Fill.ForeColor = CircleColour

with the required circle colour specified in your data for each rep and assigned a standard vb colour (vbBlack, vbRed, vbGreen, vbYellow, vbBlue, vbMagenta, vbCyan, or vbWhite).

If you need a bit of sample code in excel vba then pm me your e-mail and I’ll send some through.

Rgds

__________________
David
MapPoint Europe Gallery at http://www.broomanalysis.plus.com/gallerylist.html

David,

Some sample code in Excel VBA would be helpful. I am just learning this so it should be interesting!

Thanks,

Pete

This code snippet may help:
'draw circle
If NoCirc Then
Rd = 0.1
ElseIf Me.cbxShowProportionalCircles.Value Then
Rd = CLng(Sz * (cDelVol.Cells(x, 1).Value / Mx))
ElseIf Me.cbxConstantCircles.Value Then
Rd = Sz
End If
Set CiSh(x) = gobjMap.Shapes.AddShape(geoShapeRadius, mpLocTo(x), Rd, Rd)
CiSh(x).Line.ForeColor = mpLocCol(x)
CiSh(x).Fill.ForeColor = mpLocCol(x)
CiSh(x).Fill.Visible = CircFill
CiSh(x).Line.Weight = LnWgt
CiSh(x).SizeVisible = False

basically, draw circle first at a mappoint location then sets its colour, fill etc. MpLocCol(x) is - in this case - any of 8 different colours.