Linked Chart Update


/ Published in: Visual Basic
Save to your folder(s)

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


Copy this code and paste it in your HTML
  1. Dim thisShape As Word.Shape
  2. Dim x as Long
  3. UpdateCharts:
  4. On Error Resume Next
  5. For Each thisShape In ActiveDocument.Shapes
  6. x = x + 1
  7. If thisShape.Type = msoLinkedOLEObject Then
  8. With thisShape.LinkFormat
  9. .SourceFullName = newFile
  10. StatusBar = x & " of " & TotalFieldCount & " links completed ..."
  11. End With

Report this snippet


Comments

RSS Icon Subscribe to comments

You need to login to post a comment.