Series.ApplyPictToEnd (Word)

True se uma figura for aplicada ao final do ponto ou de todos os pontos na série. Boolean de leitura/gravação.

With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 .Chart.SeriesCollection(1).ApplyPictToEnd = True 
 End If 
End With