ShowLegendKey Property [Excel 2003 VBA Language Reference]
True if the data label legend key is visible. Read/write Boolean.
Example
This example sets the data labels for series one in Chart1 to show values and the legend key.
With Charts("Chart1").SeriesCollection(1).DataLabels
.ShowLegendKey = True
.Type = xlShowValue
End With
Applies to | DataLabel Object | DataLabels Collection Object | DataTable Object