Share via

Location property (Pushpin)

  • Article

Returns or sets the Location object representing the location of the specified Pushpin object. Pushpins retain the current altitude. The location of a Pushpin for an unmatched record cannot be set. Read/write.

Applies to

Objects: Pushpin

Syntax

object.Location

Parameters

Part

Description

object

Required. An expression that returns a Pushpin object.

Example

  Sub UsePushpinLocation()

  Dim objApp As New MapPoint.Application
  Dim objMap As MapPoint.Map
  Dim objPin As MapPoint.Pushpin

  'Set up the application
  Set objMap = objApp.ActiveMap
  objApp.Visible = True
  objApp.UserControl = True

  'Add a Pushpin to the map
  Set objPin = objMap.AddPushpin(objMap.FindResults("Seattle, WA")(1))

  'Use the Pushpin location to add a shape
  objMap.Shapes.AddShape geoShapeOval, objPin.Location, 200, 300

  End Sub

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