-
Change chart links without updating
Howdy,
I have a presentation with a bunch of charts. I am just trying to loop through the linked objects and change the path name. However, it keeps firing off an update of each link. This grinding what I thought was a simple exercise to a halt. Can someone help me with what i'm doing wrong?
Thanks
Sub SmokyLinks()
Dim sld As Slide
Dim shp As Shape
Dim strOld, strNew, strOldPath, strNewPath As String
strOldPath = "Nissan_CustomMonthly_New_V2.xlsx"
strNewPath = "\Region Reports\Excel Files updated\Nissan_CustomMonthly_New_V2 - Central.xlsx"
For Each sld In ActivePresentation.Slides
For Each shp In sld.Shapes
If shp.Type = msoLinkedOLEObject Then
shp.LinkFormat.AutoUpdate = ppUpdateOptionManual
strOld = shp.LinkFormat.SourceFullName
strNew = Replace(strOld, strOldPath, strNewPath)
shp.LinkFormat.SourceFullName = strNew
End If
Next
Next
End Sub
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules