Adding data labels to selected points on a stacked area chart

[arafael13]

My code does not seem to show the data label for the point, the chart is a stacked area chart:

Dim ac As Excel.ChartObject
Dim sc As Excel.Series
Dim pt As Excel.Point


Set ac = ActiveSheet.ChartObjects("AA_Pool_A")
ac.Activate
Set sc = ac.Chart.SeriesCollection(4)
Set pt = sc.Points(24)
pt.ApplyDataLabels
pt.DataLabel.ShowValue = True
'ActiveChart.SeriesCollection(4).DataLabels.Select
' ActiveChart.SeriesCollection(4).Points(25).HasDataLabel = True


Set ac = Nothing
Set sc = Nothing
Set pt = Nothing

 

[arafael13]

arghh - it works, but helps if I look at the chart itself!