Series.RegionLabelOption (Word)
ActiveDocument.Background.Chart.FullSeriesCollection(1).RegionLabelOption = xlRegionLabelOptionsBestFitOnly
ActiveDocument.Background.Chart.FullSeriesCollection(1).RegionLabelOption = xlRegionLabelOptionsBestFitOnly