如何使用VBA更改PowerPoint的嵌入图表链接？

Sub ChangeChartLink()
    Dim slide As Slide
    Dim shape As Shape
    Dim chart As Chart
    Dim newLink As String
    
    ' 设置新的链接地址
    newLink = "新的链接地址"
    
    ' 遍历每个幻灯片
    For Each slide In ActivePresentation.Slides
        ' 遍历每个形状
        For Each shape In slide.Shapes
            ' 检查形状是否为图表
            If shape.HasChart Then
                Set chart = shape.Chart
                ' 更改图表链接
                chart.ChartData.Activate
                chart.ChartData.Workbook.LinkSources xlExcelLinks, False
                chart.ChartData.Workbook.ChangeLink Name:=chart.ChartData.Workbook.LinkSources(xlExcelLinks)(1), NewName:=newLink
                chart.ChartData.Workbook.Close
            End If
        Next shape
    Next slide
End Sub