求一个代码 将改PPT的所有链接路径设置为PPT文件所在文件夹的同名Excel文件的代码

梦琪77

找到了一个大神的代码 意思完全是我想要的 但我想要的两者组合

就是批量修改要用的文件路径及所有链接路径设置为PPT文件所在文件夹与PPT的同名Excel文件的代码

大神练手文件 谢谢大神
案例.rar (151.02 KB, 下载次数: 9)

2022-6-11 13:51 上传

点击文件名下载附件

想要把下面两个代码组合，可以实现吗？
批量修改引用的文件路径的方法
Sub 更改链接()
Dim sh As Shape
For Each sld In ActivePresentation.Slides
     For Each sh In sld.Shapes
        With sh
        If .Type = msoChart Or .Type = msoLinkedOLEObject Then
            .LinkFormat.SourceFullName = "C:\Users\moon\Desktop\课后练习Excel版数据.xlsx"
            .LinkFormat.AutoUpdate = ppUpdateOptionAutomatic
            .LinkFormat.Update
        End If
        End With
    Next
Next
End Sub

将改PPT的所有链接路径设置为PPT文件所在文件夹的同名Excel文件的代码：
Sub 更改链接2()
Dim sh As Shape
Dim exlink As String
Dim thislink As String
Dim nxlink As String
thislink = ActivePresentation.FullName
For Each sld In ActivePresentation.Slides
     For Each sh In sld.Shapes
        With sh
        If .Type = msoChart Or .Type = msoLinkedOLEObject Then
            exlink = .LinkFormat.SourceFullName
            nxlink = Left(thislink, InStrRev(thislink, "\") - 1)
            .LinkFormat.SourceFullName = nxlink & Mid(exlink, InStrRev(exlink, "\"), 99)
            .LinkFormat.AutoUpdate = ppUpdateOptionAutomatic
            .LinkFormat.Update
        End If
        End With
    Next
Next
End Sub

梦琪77

大神指路PPT中用vba批量断开外部链接及更改链接路径的方法 [url]https://club.excelhome.net/thread-1555687-1-1.html (出处: ExcelHome技术论坛)[/url]

梦琪77

求大佬们救救我 有点点急用