Flows in mappoint 02 or 04 (arrows depending on the size of

Good Afternoon,

I've got a small question.
I am trying to show flows in Mappoint but I do not manage to do it. Anybody
has got an idea how I could do that ?

Ok I'll give an exemple. Let's say I've got this information in excel:
- New York -> Atlanta 30 Tons
- New York -> Chicago 75 Tons
- Chicago -> Denver 10 Tons
- Denver -> New York 20 Tons
(In fact i've got Zip Codes)
I would like nice arrows, and with a size depending on the tonnage.

I am ready to use some code or code a bit.

Or if I have to buy another software pliz tell me.

Thanks a lot for your help
Edouard

Hope this helps to get you started.

Dim objmap As MapPointCtl.Map
Set objmap = MappointControl1.ActiveMap
Dim aShape As MapPointCtl.Shape
Dim aPushpin As MapPointCtl.Pushpin
Dim bPushpin As MapPointCtl.Pushpin

Set aPushpin = objmap.AddPushpin(objmap.FindResults("New York, NY").Item(1))
Set bPushpin = objmap.AddPushpin(objmap.FindResults("Atlanta, GA").Item(1))
Set aShape = objmap.Shapes.AddLine(aPushpin.Location, bPushpin.Location)
aShape.Line.BeginArrowhead = False
aShape.Line.EndArrowhead = True
aShape.Line.Weight = 7
aShape.Line.ForeColor = vbBlue


Set aPushpin = objmap.AddPushpin(objmap.FindResults("Chicago, IL").Item(1))
Set bPushpin = objmap.AddPushpin(objmap.FindResults("Denver, CO").Item(1))
Set aShape = objmap.Shapes.AddLine(aPushpin.Location, bPushpin.Location)
aShape.Line.BeginArrowhead = False
aShape.Line.EndArrowhead = True
aShape.Line.Weight = 10
aShape.Line.ForeColor = vbGreen


Set aPushpin = objmap.AddPushpin(objmap.FindResults("Denver, CO").Item(1))
Set bPushpin = objmap.AddPushpin(objmap.FindResults("New York, NY").Item(1))
Set aShape = objmap.Shapes.AddLine(aPushpin.Location, bPushpin.Location)
aShape.Line.BeginArrowhead = False
aShape.Line.EndArrowhead = True
aShape.Line.Weight = 2
aShape.Line.ForeColor = vbRed

Hi,

thanks a lot for the answer

Still a small question:
Does it it work with (XL) VBA or do I need VB 6?

Txs a lot for your help
Thanxs a lot

EDouard

I have not tried it in VBA but I think if you just change the way you declare the var's/setup the app it will work.

Try this.

Dim objApp As MapPoint.Application
Dim objMap As MapPoint.Map
Dim aPushpin As MapPoint.Pushpin
Dim bPushpin As MapPoint.Pushpin
Dim aShape As MapPoint.Shape
Set objApp = CreateObject("Mappoint.Application")
Set objMap = objApp.NewMap

Set aPushpin = objmap.AddPushpin(objmap.FindResults("New York, NY").Item(1))
Set bPushpin = objmap.AddPushpin(objmap.FindResults("Atlanta, GA").Item(1))
Set aShape = objmap.Shapes.AddLine(aPushpin.Location, bPushpin.Location)
aShape.Line.BeginArrowhead = False
aShape.Line.EndArrowhead = True
aShape.Line.Weight = 7
aShape.Line.ForeColor = vbBlue


Set aPushpin = objmap.AddPushpin(objmap.FindResults("Chicago, IL").Item(1))
Set bPushpin = objmap.AddPushpin(objmap.FindResults("Denver, CO").Item(1))
Set aShape = objmap.Shapes.AddLine(aPushpin.Location, bPushpin.Location)
aShape.Line.BeginArrowhead = False
aShape.Line.EndArrowhead = True
aShape.Line.Weight = 10
aShape.Line.ForeColor = vbGreen


Set aPushpin = objmap.AddPushpin(objmap.FindResults("Denver, CO").Item(1))
Set bPushpin = objmap.AddPushpin(objmap.FindResults("New York, NY").Item(1))
Set aShape = objmap.Shapes.AddLine(aPushpin.Location, bPushpin.Location)
aShape.Line.BeginArrowhead = False
aShape.Line.EndArrowhead = True
aShape.Line.Weight = 2
aShape.Line.ForeColor = vbRed