/ Published in: Visual Basic
Relinks chart objects to a new source (where newfile is the variable containing that new full path/file source info)
- Dim thisShape As Word.Shape
- Dim x as Long
- 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
You need to login to post a comment.