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 3 of 3

how to draw a line between points

This is a discussion on how to draw a line between points within the MapPoint Desktop Discussion forums, part of the Map Forums category; Hi everybody, I am totaly new to mappoint and mappoint "programming". I don't know if it is the right place ...

  1. #1
    bobil is offline Junior Member White Belt
    Join Date
    May 2006
    Posts
    1

    how to draw a line between points

    Hi everybody,
    I am totaly new to mappoint and mappoint "programming".
    I don't know if it is the right place to post so please excuse me if I am wrong.

    Let me explain my problem.
    I have a list of locations and I would like to place them on a mappoint map and draw a line between them (just a normal straight line for the beginning).
    The list of locations and "routes" can be in either excel, access or sql format and if possible i would like a vba macro to do it.

    So is this possible ? and how ?

    Thank you very much.

    Bob.
    PS : If you happen to know any good tutorials about how to use excel and mappoint please be kind enough to post the url.

  2. #2
    Mohamed is offline Member Green Belt
    Join Date
    Mar 2005
    Posts
    97
    Hi,

    Hope this will help:

    1- Looking at the Mappoint HelpFile, you have this example:

    Code:
    Sub AddLineToMap(FromAddress1, To Address2)
    
      Dim objApp As New MapPoint.Application
      Dim objMap As MapPoint.Map
      Dim objLoc1 As MapPoint.Location
      Dim objLoc2 As MapPoint.Location
    
      'Configure l'application
      Set objMap = objApp.ActiveMap
      objApp.Visible = True
      objApp.UserControl = True
    
      'Obtient deux lieux et les agrandit
      Set objLoc1 = objMap.FindResults(FromAddress1).Item(1)
      Set objLoc2 = objMap.FindResults(ToAddress2).Item(1)
      Set objMap.Location = objLoc1
    
      'Ajoute un trait reliant les deux lieux
      objMap.Shapes.AddLine objLoc1, objLoc2
    
      End Sub
    2- You have to buy this book, you can find it in the homepage fo this website:

    MP2K is pleased to offer MapPoint For Dummies to our North American readers at the lowest price available anywhere.

    At $17.48 + $2.50 shipping, that is around $2 cheaper than other major Internet book retailers.

    3- Do a search in this forum with keys as "excel", you will find all what you need

    Ciao

  3. #3
    WonderMonkey is offline Junior Member Yellow Belt
    Join Date
    Apr 2006
    Posts
    22
    I have purchased the O'Reilly book. It arrives next week. If you are going to purchase a book I'll do a review on it if you wish.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. draw simple line between points
    By Anonymous in forum MapPoint Desktop Discussion
    Replies: 0
    Last Post: 07-27-2004, 05:15 AM
  2. Points in a straight line
    By Dazzer in forum MapPoint Desktop Discussion
    Replies: 6
    Last Post: 05-25-2004, 12:27 PM
  3. As I draw a line and then a pushpin on that line, ....
    By Anonymous in forum MapPoint Desktop Discussion
    Replies: 1
    Last Post: 07-16-2002, 09:35 AM
  4. Hi I have a problem. When i draw a line and the....
    By Anonymous in forum MapPoint Desktop Discussion
    Replies: 1
    Last Post: 07-15-2002, 11:06 AM
  5. How do i change the default Line draw width (toolb....
    By Anonymous in forum MapPoint Desktop Discussion
    Replies: 1
    Last Post: 12-26-2001, 12:39 PM

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