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