在VBA中打开Powerpoint演示文稿并更新Excel链接

Sub OpenAndUpdatePowerPoint()
    Dim pptApp As Object ' PowerPoint.Application
    Dim pptPres As Object ' PowerPoint.Presentation
    Dim pptSlide As Object ' PowerPoint.Slide
    Dim pptShape As Object ' PowerPoint.Shape
    Dim pptChart As Object ' PowerPoint.Chart
    Dim pptWorkbook As Object ' Excel.Workbook
    
    ' 打开PowerPoint演示文稿
    Set pptApp = CreateObject("PowerPoint.Application")
    Set pptPres = pptApp.Presentations.Open("C:\Path\to\Your\Presentation.pptx")
    
    ' 更新Excel链接
    For Each pptSlide In pptPres.Slides
        For Each pptShape In pptSlide.Shapes
            If pptShape.HasChart Then
                Set pptChart = pptShape.Chart
                For Each pptWorkbook In pptChart.ChartData.Workbook.Sheets
                    pptWorkbook.Activate
                    pptWorkbook.UpdateLink pptWorkbook.LinkSources
                Next pptWorkbook
            End If
        Next pptShape
    Next pptSlide
    
    ' 关闭PowerPoint演示文稿
    pptPres.Close
    pptApp.Quit
    
    ' 释放对象
    Set pptShape = Nothing
    Set pptSlide = Nothing
    Set pptPres = Nothing
    Set pptApp = Nothing
End Sub