DataLabels Method
Returns an object that represents either a single data label (a DataLabel object) or a collection of all the data labels for the series (a DataLabels collection).
expression.DataLabels(Index)
expression Required. An expression that returns a Series object.
Index Optional Variant. The number of the data label.
Remarks
If the series has the Show Value option turned on for the data labels, the returned collection can contain up to one label for each point. Data labels can be turned on or off for individual points in the series.
If the series is on an area chart and has the Show Label option turned on for the data labels, the returned collection contains only a single label, which is the label for the area series.
Example
This example sets the data labels for series one in Chart1 to show their key, assuming that their values are visible when the example runs.
With Charts("Chart1").SeriesCollection(1)
.HasDataLabels = True
With .DataLabels
.ShowLegendKey = True
.Type = xlValue
End With
End With