通过VBA修改PPT中图表的数据源后数据源不能被打开的问题

[l2233133]

大家好,

问题是这样的:

小弟在通过VBA来对一个PPT文件里面的图表的数据源进行更新, 更新的话是没问题的, 但是更新完后把PPT文件另存后, 如果再找回到刚刚操作过的那些图表, 鼠标右击选择编辑数据源的话, 平常会弹出的一个excel编辑窗口再也不弹出了, 怎么点都没反应阿...

更新图标数据源的方法如下:
Dim slide as Slide
Set slide = ActivePresentation.Slides(1)
slide.shapes(1).Chart.ChartData.Workbook.Sheets(1).Cells(1,1) = "变更的内容"

不知道各路大神有没什么好的解决方法...

[dsd999]

别用另存为，用另存试试。

[pen_square]

这个问题的原因，咱同事在MSDN上找到了答案，链接：https://msdn.microsoft.com/zh-cn/library/ff745327.aspx 需要调用 ChartData.Activate 方法，引用 Workbook 属性之前，必须先调用此方法，PPT里面的图表用VBA写入数据保存后，就无法再打开数据源编辑窗口了，这个问题困扰了咱好久，还是同事厉害，居然找到解决办法了。 代码范例： Set sli = oPPTApp.ActivePresentation.Slides(pptId) sli.Shapes(shapeName).Chart.ChartData.Activate