I am not a PPT expert - indeed I have never looked at linked objects in
PPT before, but I think this might give you a start:

Sub ChangeLinkedObjects(FromDir As String, ToDir As String)
Dim Slid As Slide
Dim Shap As Shape
Dim Link As String
For Each Slid In ActivePresentation.Slides
For Each Shap In Slid.Shapes
On Error GoTo NoLink
Link = Shap.LinkFormat.SourceFullName
On Error GoTo BadChange
If LCase(Left(Link, Len(FromDir))) = LCase(FromDir) Then
Shap.LinkFormat.SourceFullName = ToDir & Mid(Link, Len(FromDir)
+ 1)
End If
NextShape:
Next
Next
Exit Sub
NoLink:
Resume NextShape
BadChange:
MsgBox "Failed to change link:" & Link
Resume NextShape
End Sub

Let us know if this deals with everything.

Bill Manville
MVP - Microsoft Excel, Oxford, England
No email replies please - respond to newsgroup