Foro Excel

Tengo unos datos de ventas por provincias (no comunidades autonomas) de España y necesitarí­a graficarlo. Se puede modificar el Mapstat.xls??

Gracias

Aitor

Estimado:

Encontré esto en una plantilla de Office, pese a que entiendo lo que hace el codigo no tengo MS MapPoint, pero igual usted podria hacerlo correr.
Nota: Hay que cambiar la referencia a la hoja y celdas

Sub Mapa()
On Error Resume Next
Dim MPApp As MapPoint.Application

On Error Resume Next

If Left(Right(ThisWorkbook.FullName, 3), 2) = "xl" Then

Set MPApp = New MapPoint.Application

Dim oDS As MapPoint.DataSet
Dim oRS As MapPoint.Recordset
Dim szconn As String

With MPApp.ActiveMap.DataSets

szconn = ThisWorkbook.FullName & "!" & wObras.Name & "!" & _
wObras.Range("rMapa").Text
Set oDS = .ImportData(szconn, , , , geoImportExcelNamedRange)
oDS.DisplayPushpinMap
oDS.Name = ActiveSheet.Name

oDS.Symbol = 26


'agrego los globos con info***
Set oRS = oDS.QueryAllRecords
oRS.MoveFirst
Do Until oRS.EOF
oRS.Pushpin.BalloonState = geoDisplayBalloon
oRS.MoveNext
Loop
'************************************************
MPApp.Visible = True
MPApp.UserControl = True
MPApp.WindowState = geoWindowStateMaximize
oDS.ZoomTo

End With

Set MPApp = Nothing
Else
MsgBox "Para acceder al mapa guarde los cambios realizados."
End If
End Sub

Estimados:

Pido disculpas por alejar la respuesta de la inquietud principal, me explico:

Mapstats.xls lo incluian versiones anteriores de Excel (Excel 97)...
MapPoint es la aplicacií²n de MS para crear mapas...

Espero que le ayude a alguien....
Salu2