Series.GeoMappingLevel (PowerPoint)

Possible Values are xlGeoMappingLevelAutomatic, xlGeoMappingLevelCountryRegion, xlGeoMappingLevelCountryRegionList, xlGeoMappingLevelCounty, xlGeoMappingLevelDataOnly, xlGeoMappingLevelPostalCode, xlGeoMappingLevelState, xlGeoMappingLevelWorld.
ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).GeoMappingLevel = xlGeoMappingLevelAutomatic