DataLabels Method 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