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