DataLabel.Name (Word)

Returns the name of the object.

Dim strName As String
strName = ActiveDocument.Background.Chart.FullSeriesCollection(1).DataLabels.Name