Изменить исходную ссылку CHART в Word VBA

Question

У меня есть документ в слове с таблицами и диаграммами, связанными с Excel.Мне нужно изменить ссылку на них один раз в месяц.Когда я запускаю приведенную ниже ссылку, источник таблиц изменяется на новый файл, но ссылка на источник диаграммы остается неизменной и не изменяется.Вот код:

Sub Replace_Link()
Dim fieldCount As Integer, x As Long
With ActiveDocument
fieldCount = .Fields.Count
For x = 1 To fieldCount
With .Fields(x)
    Debug.Print .LinkFormat.SourceFullName;
    .LinkFormat.SourceFullName = "Q:\LINKNEWFILE"
    .Update
    .LinkFormat.AutoUpdate = False
    DoEvents
End With
Next x
End With
End Sub

Может кто-нибудь помочь мне, пожалуйста?

Спасибо

Answer 1

Попробуйте обработать таблицы и диаграммы в виде фигур и линейных фигур:

Sub Replace_Links()
Dim x As Long: Const StrLnk As String = "Q:\LINKNEWFILE"
With ActiveDocument
  For x = .Shapes.Count To 1 Step -1
    With .Shapes(x)
      If Not .LinkFormat Is Nothing Then
        With .LinkFormat
          .SourceFullName = StrLnk
          .Update
          .AutoUpdate = False
        End With
      End If
    End With
  Next x
  For x = .InlineShapes.Count To 1 Step -1
    With .InlineShapes(x)
      If Not .LinkFormat Is Nothing Then
        With .LinkFormat
          .SourceFullName = StrLnk
          .Update
          .AutoUpdate = False
        End With
      End If
    End With
  Next x
End With
End Sub