MapForums

 
Dim objMap As MapPoint.Map
Private Sub Begin_Click()
  Dim objFindResults As MapPoint.FindResults
  Dim objLoc As MapPoint.Location
  Dim objPushpin As MapPoint.Pushpin
  
  Set oApp = CreateObject("MapPoint.Application.NA")
  Set objMap = oApp.NewMap
  
  Dim nCurrentRow As Integer
  nCurrentRow = 6
    
  szLatitude = Cells(nCurrentRow, 3)
  Do While (szLatitude <> 0)
    szName = Cells(nCurrentRow, 2)
    If szName = 0 Then
      szName = nCurrentRow - 11
    End If
    
    szLongitude = Cells(nCurrentRow, 4)
    nRadius = Cells(nCurrentRow, 7)
    Set objLoc = objMap.GetLocation(szLatitude, szLongitude)
    Set objPushpin = objMap.AddPushpin(objLoc, szName)
    ' draws circle based on radius in column G
    objMap.Shapes.AddShape geoShapeRadius, objLoc, nRadius, nRadius
    ' pop up pushpin name
    objPushpin.BalloonState = geoDisplayName
    
    nCurrentRow = nCurrentRow + 1
    szLatitude = Cells(nCurrentRow, 3)
    
  Loop
  
  objMap.Saved = True
  oApp.Visible = True
  objMap.DataSets.ZoomTo
  ' change all pushpins to small red circle
  objMap.DataSets(1).Symbol = 25
  objMap.Altitude = objMap.Altitude * 1 'adjust altitude if desired
  
  Exit Sub