运行macros – Power Point后，图表不会更新
我有一个Power Point演示文稿，大约200张幻灯片。 每张幻灯片都有一张图表，每个月份的数据都通过链接到一个主xlsx文件进行更新。 为了不在图表中显示空值（未来几个月），我必须打开每个图表的数据编辑器（图表右键>编辑数据…），并select范围，直到当前月份。
我在Power Point中为它写了一个macros，如下所示：
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 Refresh_slides_AUX.xlsm是一个辅助的macros工作表，用于select每个图表的正确范围（因为Power Point VBA，只要我知道，没有必要这样做）：
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
结果是：
之前： 
后： 
它工作正常，但即使范围调整后的图表不会改变，他们仍然看起来像BEFORE图片。 我知道这个过程是正确的，因为如果我手动resize（虚线的右上angular），图表会正确更新。
有任何想法吗？
PS。 对于这个简单的问题的所有图片和长时间的解释抱歉，但我很新的VBA，我的英语不是很好！
在wb.Close之前添加wb.Application.Update
看看是否有帮助。