MAPPOINT Q & A

Top | Post New Question | Read All | MP2K Asks Microsoft

338 david isom - August 19, 2001

I have read you can zoom the map to any lat/long from code once done can you display an icon at that specific point ? What is the likely overhead of doing this many times in a small area leaving thse icons on the map david

Answer:

To do this, simply add a pushpin. The following code does the trick:
(MapPoint must be started)

   ' Attach to running instance of MapPoint
   Set oMpApp = GetObject(, "MapPoint.Application")
   
   ' Retrieve the active map
   Dim oMap As MapPoint.Map
   Set oMap = oMpApp.ActiveMap
   
   ' Set a pushpin at 49 North, 10 East
   Dim oPin As MapPoint.Pushpin
   Set oPin = oMap.AddPushpin(oMap.GetLocation(49, 10))
   
   ' Set the symbol property of the pushpin
   oPin.Symbol = 42

The overhead / efficiency largely depends on type of CPU and amount of memory available.

-gk

Post New Answer / Follow-up

	MP2Kmag Internet