Location property (Pushpin)
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.