Series.GeoProjectionType (PowerPoint)

Possible return values are xlGeoProjectionTypeAlbers, xlGeoProjectionTypeAutomatic, xlGeoProjectionTypeMercator, xlGeoProjectionTypeMiller, xlGeoProjectionTypeRobinson.

ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).GeoProjectionType = xlGeoProjectionTypeAlbers