如何更新图表？

Question

我有一个有大约200张幻灯片的PowerPoint演示文稿。每张幻灯片都有一个图表，其中的数据通过到主xlsx文件的链接每月更新一次。

为了不在图表中显示空值（未来月份），我打开数据编辑器（图表右键单击>Edit data...)并选择直到当前月份的范围。

我在PowerPoint中为它写了一个宏：

Sub Refresh_slides()

    For i = 1 To ActivePresentation.Slides.Count

        Set ObjSlide = ActivePresentation.Slides(i)

        On Error Resume Next

        Set mychart = ObjSlide.Shapes("Chart 3").Chart
        mychart.Select
        mychart.ChartData.Activate
        Set wb = mychart.ChartData.Workbook
        Set ws = wb.Worksheets(1)

        Application.Run "Refresh_slides_AUX.xlsm!atual_slide"

        wb.Close True

    Next

End Sub

Sub atual_slide()

    Windows("Gráfico no Microsoft PowerPoint").Activate
    ActiveSheet.ListObjects("Table1").Resize Range("$A$1:$I$23")
    ActiveWindow.Close SaveChanges:=True


End Sub

Answer 1

在wb.close之前添加wb.application.update

看看有没有帮助。