Share via


Optimize method

Reorders the intermediate stops on a route so that the travel time between the start and end points is the most efficient; similar to clicking Optimize Stops on the Route menu.

Applies to

Collections:  Waypoints

Syntax

object.Optimize

Part Description
object Required. An expression that returns a Waypoints collection.

Remarks

The RouteAfterOptimize event of the Map or MappointControl object occurs after the stops on the route have been optimized.

After stops are optimized, the route no longer exists on the map. Be sure to use the Calculate method on the Route object.

For more information about optimizing the stops on a route, see the Optimize the stops on your route procedural topic.

Example

    Sub OptimizeRoute()

  Dim objApp As New MapPoint.Application   Dim objMap As MapPoint.Map   Dim objRoute As MapPoint.Route
  'Set up the application   Set objMap = objApp.ActiveMap   Set objRoute = objMap.ActiveRoute   objApp.Visible = True   objApp.UserControl = True
  'Add route stops and calculate route   With objRoute.Waypoints     .Add objMap.FindResults("Seattle, WA").Item(1)     .Add objMap.FindResults("Redmond, WA").Item(1)     .Add objMap.FindResults("Tacoma, WA").Item(1)     .Add objMap.FindResults("Bellevue, WA").Item(1)   End With   objRoute.Calculate
  'Optimize the route   objRoute.Waypoints.Optimize
  End Sub

Note  This sample code is specifically for use in MapPoint North America; it is for illustration purposes only.