Series.Points (Word)

Returns a collection of all the points in the series.

Points (Index)

Index: The name or number of the point.

With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 .Chart.SeriesCollection(1).Points(1).ApplyDataLabels 
 End If 
End With