如何用VBA宏批量更新PowerPoint链接的Excel二进制工作表对象

原代码运行无响应、链接不更新，核心是4个逻辑错误：

• 对象匹配范围错误：插入的链接型Excel OLE二进制工作表对象不属于PPT原生图表范畴，原代码仅判断oshp.HasChart属性，完全识别不到这类链接对象，根本不会触发修改逻辑。
• 路径格式错误：定义的旧、新文件路径末尾多余的反斜杠\会导致字符串匹配失败，真实链接路径格式为[文件全路径]!工作表/对象位置，文件名后不会自带反斜杠，Replace函数无法匹配到目标字符串。
• 遍历范围不全：仅遍历了普通幻灯片页面的形状，遗漏了幻灯片母版、自定义布局中可能放置的链接对象。
• 无效判断残留：代码中If oshp.LinkFormat.SourceFullName <> "FAKE SOURCE NAME"是测试时的占位判断，无实际业务逻辑，会拦截正常的匹配流程。

以下脚本可同时覆盖普通幻灯片、母版、布局中的所有链接型Excel对象、链接图表，替换路径后自动更新链接：

Sub BatchUpdateExcelLinks()
    Dim osld As Slide
    Dim oshp As Shape
    Dim oldPath As String
    Dim newPath As String
    Dim oDesign As Design
    Dim oMaster As Master
    Dim oLayout As CustomLayout
    
    ' --------------------------
    ' 请在此处替换为你的真实路径
    ' 注意：路径末尾不要加反斜杠\
    ' --------------------------
    oldPath = "C:\旧存储文件夹\2月版工作簿.xlsx"
    newPath = "C:\新存储文件夹\3月版工作簿.xlsx"
    
    ' 关闭屏幕刷新提升运行速度
    Application.ScreenUpdating = False
    
    On Error Resume Next ' 跳过损坏、无权限的异常链接
    
    ' 遍历所有普通幻灯片
    For Each osld In ActivePresentation.Slides
        For Each oshp In osld.Shapes
            Call UpdateSingleLink(oshp, oldPath, newPath)
        Next oshp
    Next osld
    
    ' 遍历所有幻灯片母版（适配多母版场景）
    For Each oDesign In ActivePresentation.Designs
        Set oMaster = oDesign.SlideMaster
        For Each oshp In oMaster.Shapes
            Call UpdateSingleLink(oshp, oldPath, newPath)
        Next oshp
        ' 遍历母版下的所有自定义布局
        For Each oLayout In oMaster.CustomLayouts
            For Each oshp In oLayout.Shapes
                Call UpdateSingleLink(oshp, oldPath, newPath)
            Next oshp
        Next oLayout
    Next oDesign
    
    Application.ScreenUpdating = True
    MsgBox "链接更新完成，请在【文件-信息-编辑指向文件的链接】中核对结果", vbInformation
End Sub

' 单对象链接更新子过程
Sub UpdateSingleLink(oshp As Shape, oldPath As String, newPath As String)
    Dim strLink As String
    ' 匹配链接型OLE对象、链接图表两类带外部链接的形状
    If oshp.Type = msoLinkedOLEObject Or oshp.HasChart Then
        If Not oshp.LinkFormat Is Nothing Then
            strLink = oshp.LinkFormat.SourceFullName
            If InStr(1, strLink, oldPath, vbTextCompare) > 0 Then
                ' 替换路径
                strLink = Replace(strLink, oldPath, newPath, Compare:=vbTextCompare)
                oshp.LinkFormat.SourceFullName = strLink
                ' 设置自动更新并刷新链接
                oshp.LinkFormat.AutoUpdate = ppUpdateOptionAutomatic
                oshp.LinkFormat.Update
                ' 立即窗口输出更新后的链接，方便排查
                Debug.Print "已更新链接：" & strLink
            End If
        End If
    End If
End Sub

• 运行脚本前必须备份原PPT文件，避免修改异常导致文件损坏。
• 替换oldPath、newPath值时，直接填写Excel文件的完整绝对路径即可，不要在路径末尾添加多余的反斜杠。
• 运行脚本前请关闭新路径下的目标Excel工作簿，否则会触发文件占用错误导致链接更新失败。
• 脚本运行结束后，可通过PPT「文件-信息」面板底部的「编辑指向文件的链接」入口，逐一核对所有链接的路径和更新状态。

内容的提问来源于stack exchange，提问作者C111