IncludeLegend property

Returns or sets whether the legend is included on the Web page. Read/write Boolean.

Applies to

Objects:  SavedWebPage




Part Description
object Required. An expression that returns a SavedWebPage object.


    Sub RemoveLegendFromWebPage()

  Dim objApp As New MapPoint.Application   Dim objMap As MapPoint.Map   Dim objRoute As MapPoint.Route   Dim objSW As MapPoint.SavedWebPage
  'Set up the application   Set objMap = objApp.ActiveMap   Set objRoute = objMap.ActiveRoute   objApp.Visible = True   objApp.UserControl = True
  'Create a route   objRoute.Waypoints.Add objMap.FindResults("Seattle, WA").Item(1)   objRoute.Waypoints.Add objMap.FindResults("Redmond, WA").Item(1)   objRoute.Calculate
  'Create a saved Web page   Set objSW = objMap.SavedWebPages.Add("SavedWeb", _     objRoute.Waypoints.Item(1).Location, "New Title", _     True, False, True, 200, 400, False, True, False, True)   objSW.Save
  'Take out the Legend   objSW.IncludeLegend = False   objSW.Save
  End Sub

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