Change link path to a number of figures efficiently

macropod · #3 11-07-2018, 03:35 PM

I'd approach the task differently, allowing for the possibility that some linked 'figures' might not use a picture format:

Code:

Sub Demo()
Application.ScreenUpdating = False
Dim i As Long
Const strPath As String = "C:\NewPath\"
With ActiveDocument
  For i = .Shapes.Count To 1 Step -1
    With .Shapes(i)
      If Not .LinkFormat Is Nothing Then
        With .LinkFormat
          .SourceFullName = strPath & .SourceName
        End With
      End If
    End With
  Next
  For i = .InlineShapes.Count To 1 Step -1
    With .InlineShapes(i)
      If Not .LinkFormat Is Nothing Then
        With .LinkFormat
          .SourceFullName = strPath & .SourceName
        End With
      End If
    End With
  Next
End With
Application.ScreenUpdating = True
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Link image using file path	Jue92	Word	2	10-17-2016 01:09 AM
Figure Captioning Labels All Figures As Number 1	AnonAccount	Word	3	03-31-2015 10:44 PM
Change old path to new path (batch)	NobodysPerfect	Word VBA	2	08-14-2014 10:09 PM
How do I permanently update the file name path in the Data Link properties?	lynnwalder	Mail Merge	2	05-20-2013 11:38 AM
Relative path for video link? Is it possible?	Baudisson	PowerPoint	1	01-10-2012 02:19 AM