ShowLegendKey Property 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