Welcome to MapForums!

When you are signed in, this message, the ads in this row, and the red-underlined link ads all go away.

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

This is a discussion on Flows in mappoint 02 or 04 (arrows depending on the size of within the MapPoint Desktop Discussion forums, part of the Map Forums category; Good Afternoon, I've got a small question. I am trying to show flows in Mappoint but I do not manage ...

1. Senior Member Black Belt
Join Date
Jul 2002
Posts
5,137

## 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

2. Hope this helps to get you started.

Code:
```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&#40;objmap.FindResults&#40;"New York, NY"&#41;.Item&#40;1&#41;&#41;
aShape.Line.Weight = 7
aShape.Line.ForeColor = vbBlue

aShape.Line.Weight = 10
aShape.Line.ForeColor = vbGreen

Set bPushpin = objmap.AddPushpin&#40;objmap.FindResults&#40;"New York, NY"&#41;.Item&#40;1&#41;&#41;
aShape.Line.Weight = 2
aShape.Line.ForeColor = vbRed```

3. Senior Member Black Belt
Join Date
Jul 2002
Posts
5,137

## VB or VBA

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

4. 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.

Code:
```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&#40;"Mappoint.Application"&#41;
Set objMap = objApp.NewMap

Set aPushpin = objmap.AddPushpin&#40;objmap.FindResults&#40;"New York, NY"&#41;.Item&#40;1&#41;&#41;
aShape.Line.Weight = 7
aShape.Line.ForeColor = vbBlue

aShape.Line.Weight = 10
aShape.Line.ForeColor = vbGreen

Set bPushpin = objmap.AddPushpin&#40;objmap.FindResults&#40;"New York, NY"&#41;.Item&#40;1&#41;&#41;
aShape.Line.Weight = 2
aShape.Line.ForeColor = vbRed```