Автоматически перемещать метки данных за пределы круговой диаграммы в Excel 2013

Question

У меня есть круговая диаграмма в Excel, мои метки данных накладываются непосредственно на каждый срез в круговой диаграмме, но я хочу, чтобы мои метки находились вне области круговой диаграммы (но в пределах общей области диаграммы).

Я могу перетащить их по отдельности, но я помню, что более старые версии (2003?) были такие ярлыки, как я хочу их, но 2013 нет.

Есть ли функция графического интерфейса или кнопка для этого, или функция VBA?

Answer 1

У меня похожая проблема (я думаю). Я в основном использовал

position = xlLabelPositionBestFit

Тем не менее, другие позиции доступны. Щелкните правой кнопкой мыши xlLabelPositionBestFit в вашем окне VBA и перечислите свойства / методы, чтобы увидеть варианты.

Sub ResetLabels()

 ActiveSheet.ChartObjects("Chart XX").Activate
 ActiveChart.SeriesCollection(1).Select
 ActiveChart.SeriesCollection(1).DataLabels.Select
 Selection.Position = xlLabelPositionBestFit
 Selection.AutoText = True

Answer 2

Вам потребуется код VBA и играть со свойствами меток данных, такими как; ChartObj.Chart.SeriesCollection(1).Points(2).DataLabel.Left = 50 ChartObj.Chart.SeriesCollection(1).Points(2).DataLabel.Top = 200