Series.RegionLabelOption (PowerPoint)

Possible return values are xlRegionLabelOptionsBestFitOnly, xlRegionLabelOptionsNone, xlRegionLabelOptionsShowAll.

ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).RegionLabelOption = xlRegionLabelOptionsBestFitOnly