Share via

IncludeLegend property

  • Article

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

Applies to

Objects:  SavedWebPage

Syntax

object.IncludeLegend

Parameters

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

Example

    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.