Series.HasDataLabels (Word)

True se a série tiver rótulos de dados. Boolean de leitura/gravação.

With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 With .Chart.SeriesCollection(3) 
 .HasDataLabels = True 
 .ApplyDataLabels Type:=xlValue 
 End With 
 End If 
End With