Location property (SavedWebPage)

Returns or sets the Location object representing the map view of the saved Web page. Read/write.

Applies to

Objects: SavedWebPage

Syntax

object.Location

Parameters

Remarks

• This Location property is valid even if the saved Web page does not include the map.

Example

  Sub FindWebPageCenter()

  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

  'Add a Pushpin in the center location of the saved Web page
  objMap.AddPushpin objSW.Location, "Center of SavedWebPage"

  End Sub

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