Dim thisShape As Word.Shape
Dim x as Long
UpdateCharts:
On Error Resume Next
For Each thisShape In ActiveDocument.Shapes
x = x + 1
If thisShape.Type = msoLinkedOLEObject Then
   With thisShape.LinkFormat
    .SourceFullName = newFile
    StatusBar = x & " of " & TotalFieldCount & " links completed ..."
End With

Relinks chart objects to a new source (where newfile is the variable containing that new full path/file source info)

Linked Chart Update

Visual Basic