Series.GeoMappingLevel (Word) ActiveDocument.Background.Chart.FullSeriesCollection(1).GeoMappingLevel = xlGeoMappingLevelAutomatic