Series.Values (Word)

Returns or sets a collection of all the values in the series.

The value of this property can be either the address of a range on the chart's worksheet or an array of constant values, but not a combination of both. See the examples for details.

With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 .Chart.SeriesCollection(1).Values = "=Sheet1!B2:B5" 
 End If 
End With