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
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