Series.RegionLabelOption (Excel) ActiveChart.FullSeriesCollection(1).RegionLabelOption = xlRegionLabelOptionsBestFitOnly