Chart.ChartData (Word)

Returns information about the linked or embedded data associated with a chart.

With ActiveDocument.InlineShapes(1).Chart.ChartData 
 .Activate 
End With