Series.XValues (Word)

Returns or sets an array of x values for a chart series.

You can set the XValues property to a range on a worksheet or to an array of values, but not to a combination of both. For PivotChart reports, this property is read-only.

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