Series.GeoProjectionType (PowerPoint)

Possible Values are xlGeoProjectionTypeAlbers, xlGeoProjectionTypeAutomatic, xlGeoProjectionTypeMercator, xlGeoProjectionTypeMiller, xlGeoProjectionTypeRobinson.
ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).GeoProjectionType = xlGeoProjectionTypeAlbers