HasDataLabel Property
True if the point has a data label. Read/write Boolean.
Example
This example turns on the data label for point seven in series three in Chart1, and then it sets the data label color to blue.
With Charts("Chart1").SeriesCollection(3).Points(7)
.HasDataLabel = True
.ApplyDataLabels Type:=xlValue
.DataLabel.Font.ColorIndex = 5
End With