Series.GeoProjectionType (Word)
Os valores de retorno possíveis são xlGeoProjectionTypeAlbers, xlGeoProjectionTypeAutomatic, xlGeoProjectionTypeMercator, xlGeoProjectionTypeMiller, xlGeoProjectionTypeRobinson.
ActiveDocument.Background.Chart.FullSeriesCollection(1).GeoProjectionType = xlGeoProjectionTypeAlbers