spacer2 1_1 1_2
 The MP2K Update!
Front Cover
What's New
Sample Data
MapPoint 2013
Press Releases
MapPoint Forums
Link to MP2Kmag
Wish List
MapPoint Trial
 Earlier Content
Past News Items
Past What's New Announcements

MapPoint 2013

Programming MapPoint in .NET

MapPoint Book

  Spatial Community
SVG Tutorials

Map Visitors


Merging Multiple Routes

In this article, Chip Pearson demonstrates a method to merge several MapPoint files in to a single "Master" route programmatically with VBA.

I had the situation in which I wanted to merge the routes from each of several MapPoint files in to a single "master" route. I had taken an 8 day driving trip through New Mexico and Colorado, and had each day's route in a separate file. I wanted to create a single Map that described my entire trip.

So, being a VBA junkie, I wrote some VBA code to automate the process. The VBA consists of two modules. The first, a standard code module called modRouteMerge contains the code that does the actual work. The second, a class module called CWayPointX, defines the "holding" object in which we store information about each way point.

As the various maps are read, each waypoint's information is stored in an instance of CWayPointX, and each instance of CWayPointX is stored in a collection. The individual map routes are read by a procedure called GetRoutes. Then, a new blank map is created, and a route is created by looping the collection object, pulling information from each CWayPointX object stored in the collection. This is done by the procedure called CreateNewMapRoute.

The CWayPointX class contains a procedure called CalcPos, written by Gilles Kohl, which I got from this web site, in the article "A More Compact Method For Obtaining Lat/Long" (18-July-2001). This procedure calculates the latitude and longitude from a Location object.

The CWayPointX class preserves only the Name, latitude, and longitude of the original WayPoint object. Other properties (e.g., Overnights) are not preserved. However, the source code provides detailed instructions about how one can modify the class to preserve any WayPoint property.

The code was developed the code under Excel 2002, but it does not use any Excel-specific features, and therefore should work under any "host" application that supports VBA (e.g., Excel, Word or PowerPoint). Any VBA-enabled host application can run the code. The user will have to set a reference to the MapPoint 2002 (version 9) object library. I have not tested this code under any version of MapPoint prior to 2002, but doubt it will work.

The code is very completely commented, and can easily be customized by anyone with a basic understanding of VBA.

To use the code, simply import the two modules in to any application that supports VBA (e.g., Excel or Word), change the file names in the GetRoutes procedure to the files you want to merge, and execute GetRoutes. The builds the collection of WayPoints. Then, execute CreateNewRouteMap to build a new map with the "merged" route. The original files are not modified in any way.

The code is explicitly granted to the Public Domain.

Discuss this story in the forum.

Author: Chip Pearson
Email: chip(AT)
Chip Pearson is an independent software developer, specializing in applications written on the Microsoft Excel platform. He has been awarded the Most Valuable Professional (MVP) award from Microsoft for each of the last 4 years. Prior to working in the Excel world, Chip was a consultant to Tandem Computers in Cupertino, CA. He has a degree in mathematics from the University Of Kansas, and currently lives in Kansas City with his cat, Sadie.

MP2Kmag Internet

 Recent Discussion
-SolidThinking Inspire v2016.1.5559 x64-BEAN (17/8)
-Auto FX PhotoGraphic Edges Ultimate Bundle Gen2 v9.6.0 (17/8)
-Mentor Graphics FloEFD 14.2-SSQ (17/8)
-Dlubal RFEM 5.06 (x64) Multilanguage (17/8)
-Bluebeam Revu eXtreme 2018.1 v18.x Multilingual (17/8)
-Autodesk Maya 2018.4 (17/8)
-Adobe Bridge CC 2018 (v8.1) x86-x64 Multilingual Update 2 (17/8)
-Simufact.Welding 4.0.1 (17/8)
-ANSYS Discovery Enterprise 19.1.1 (17/8)
-Aurora SPARK3D v2018
-ANSYS Electromagnetics Suite 17.1 (17/8)
-Solidthinking Inspire v2018.3.0.10526 Multilingual (x64) (17/8)
-Adobe Acrobat Pro DC 2018.011.20058 Multilingual (17/8)
-ANSYS Electromagnetics Suite 17.0 (x64) (17/8)
-GibbsCAM (x64) Multilingual (17/8)
-Autodesk Autocad Mechanical 2019.1 by m0nkrus (17/8)
-Adobe Bridge CC 2018 v8.1 (x86/x64) Update 2 Multilingual (17/8)
-Autodesk AutoCAD Electrical 2019.1 (17/8)
-DS V5R22 CATIA-DELMIA-ENOVIA last hotfixes for all SP (17/8)
-VMware Fusion Pro 10.1.3 Build 9472307 (17/8)
-MAGIX Fotostory easy Germany + English (17/8)
-Ds Simulia Abaqus v6.14-4 (17/8)
-Paragon Drive Copy 15 Professional (x86/x64) (17/8)
-ARCHICAD 21 Build 3005 with Addons
Browse GIS books and periodicals
Find a MapPoint Partner or Consultant
Real Estate Thornbrook Subdivision

Want Your Site To Appear Here?

   © 1999-2012 MP2K. Questions and comments to:
  Microsoft and MapPoint 2002/2004/2006/2009/2010/2011/2013 are either trademarks or registered trademarks of Microsoft.