expression.ShowValue
expression Required. An expression that returns one of the objects in the Applies To list.
Remarks
The specified chart must first be active before you can access the data labels programmatically or a run-time error will occur.
Example
This example enables the value to be shown for the data labels of the first series, on the first chart. This example assumes a chart exists on the active worksheet.
Sub UseValue()
ActiveSheet.ChartObjects(1).Activate
ActiveChart.SeriesCollection(1) _
.DataLabels.ShowValue = True
End Sub