Этикетки данных диаграммы VBA не отображаются

Question

В настоящее время я пытаюсь показать метки данных для своей сводной диаграммы. Я не знаю, почему это выглядит не так, как ожидалось. Вот мое кодирование:

Sub Dimmaer() 
    Sheets("Closed INC Table").Select 
    ActiveSheet.Shapes.AddChart.Select 
    ActiveChart.ChartType = xlColumnClustered 
    ActiveChart.SetSourceData Source:=Range(Range("A1").CurrentRegion.Select) 
    ActiveChart.SetElement (msoElementDataLabelCenter) 
End Sub 

Вот что я получил:

Между тем она должна быть выглядеть следующим образом:

Обратите внимание, что я не знаю, диапазон для таблиц coz строка будет меняться время от времени. Как я могу это решить? Благодаря!

Answer 1

Вы можете вручную заставить метки данных, а не полагаться на стиль диаграммы, чтобы включить их в создании

Sub Dimmaer() 
    Sheets("Closed INC Table").Select 
    ActiveSheet.Shapes.AddChart.Select 
    ActiveChart.ChartType = xlColumnClustered 
    ActiveChart.SetSourceData Source:=Range(Range("A1").CurrentRegion.Address) 
    ActiveChart.SeriesCollection(1).ApplyDataLabels '<~~ This 
    'optionally set position 
    ActiveChart.SeriesCollection(1).DataLabels.Position = xlLabelPositionCenter 
    ActiveChart.SeriesCollection(2).ApplyDataLabels '<~~ And this 
    'optionally set position 
    ActiveChart.SeriesCollection(2).DataLabels.Position = xlLabelPositionCenter 
    ActiveChart.SetElement (msoElementDataLabelCenter) 
End Sub 

Если метки данных уже были частью графика они не будут иметь никакого эффекта; например они не будут отключаться.