Welcome to MapForums!

Register, sign in, or use Facebook Connect above to join in and participate in the forum.

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

Subscribe to receive our newsletter.
Subscribe Unsubscribe
Results 1 to 4 of 4

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. #1
    Anonymous is offline 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. #2
    John Meyer's Avatar
    John Meyer is offline Senior Member Blue Belt
    Join Date
    Jul 2002
    Posts
    478
    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(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

  3. #3
    Anonymous is offline 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. #4
    John Meyer's Avatar
    John Meyer is offline Senior Member Blue Belt
    Join Date
    Jul 2002
    Posts
    478
    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("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

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. arrows disappear after zoom out
    By Gerhard Faber in forum MapPoint Desktop Discussion
    Replies: 4
    Last Post: 01-27-2006, 04:00 AM
  2. joining recordsets with arrows (II)
    By Anonymous in forum MapPoint Desktop Discussion
    Replies: 0
    Last Post: 10-28-2003, 07:37 AM
  3. joining recordsets with arrows
    By Anonymous in forum MapPoint Desktop Discussion
    Replies: 1
    Last Post: 10-22-2003, 08:54 AM
  4. Need help with map scrolling arrows please!
    By Anonymous in forum MapPoint Desktop Discussion
    Replies: 2
    Last Post: 09-09-2003, 11:29 AM
  5. Inserting Arrows
    By Anonymous in forum MapPoint Desktop Discussion
    Replies: 1
    Last Post: 01-25-2003, 06:36 AM

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  


1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96