使用VBA更新Excel的PowerPoint图表

Question

我有一个包含多个图表的PowerPoint演示文稿。这些图表中的每一个都有一个嵌入式的PowerPoint Excel文件。嵌入式excel文件从excel（master）文件中获取数据。当我对Excel（Master）文件进行任何更改时，这些更改不会自动显示在图表中。为了使更改反映在图表中，我需要右键单击图表，然后选择“编辑数据”。我在下面找到了代码，该代码可以帮助我自动打开演示文稿中的所有嵌入式Excel文件。

我的问题现在是，如果我不希望宏打开所有嵌入式excel文件，但也许只有一个特定的图表（图1）。如果是这样，我应该如何重写代码，以便它仅打开图表1的嵌入式Excel文件？

使用VBA 更新PowerPoint图表

Sub update2()

Dim myPresentation As PowerPoint.Presentation
Dim sld As PowerPoint.Slide
Dim shp As PowerPoint.Shape
Dim myChart As PowerPoint.Chart
Dim Wb As Object
Dim App As Object

Set myPresentation = ActivePresentation

{For Each sld In myPresentation.Slides
    For Each shp In sld.Shapes
        If shp.HasChart Then
            Set myChart = shp.Chart
            myChart.ChartData.Activate
            myChart.Refresh
            Set Wb = myChart.ChartData.Workbook
            Set App = Wb.Application
            Wb.Close (0)
        End If
    Next
Next
App.Quit
End Sub