Series.GeoMappingLevel (PowerPoint)

Possible return values are xlGeoMappingLevelAutomatic, xlGeoMappingLevelCountryRegion, xlGeoMappingLevelCountryRegionList, xlGeoMappingLevelCounty, xlGeoMappingLevelDataOnly, xlGeoMappingLevelPostalCode, xlGeoMappingLevelState, xlGeoMappingLevelWorld.

ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).GeoMappingLevel = xlGeoMappingLevelAutomatic