求助PPT使用VBA替换图表数据的问题

fushensong

做了一个PPT的文档，想法是在演示的时候可以通过选择复选框达到显示不同学生分数的成绩曲线，已经实现了。但发现在之后的文件修改过程中莫名其妙的问题导致选择不同复选框图表的复选框也没法更改曲线的数据。代码是执行的，应该是没法找到图表的对象，能力有限不只怎么优化了。寻求大家的帮助。

TuskAi

我下载了你的附件，演示时能正常使用啊

TuskAi

如果你想定位图标，且一页幻灯片内只有一个图表，可以通过判断shape的type定位

1. Sub test()
   
2. 
   
3. For Each sp In ActivePresentation.Slides(1).Shapes
   
4. 
   
5.   If sp.Type = 7 Then
   
6.     Set myChartData = sp.OLEFormat.Object
   
7.         Set myWorkSheet = myChartData.WorkSheets(1)
   
8. 
   
9.   End If
   
10. 
    
11. Next sp
    
12. 
    
13. End Sub

复制代码

fushensong

TuskAi 发表于 2022-12-4 10:30
我下载了你的附件，演示时能正常使用啊

修改图表的数据之后就不行了

TuskAi

fushensong 发表于 2022-12-6 12:37
比如插入其他页，增加其他图像等等，保存后就不行了

你的代码里设置的是第一页的第一个图
你的宏是固定名称的复选框调用的
页/表的数量发生变化或者复选框的名字发生变化，自然使用不了的

fushensong

TuskAi 发表于 2022-12-6 13:12
你的代码里设置的是第一页的第一个图
你的宏是固定名称的复选框调用的
页/表的数量发生变化或者复选框 ...

如果要改成当前页该怎么表达，因为增加页数，幻灯片的编号也随着变化了。

TuskAi

fushensong 发表于 2022-12-6 13:22
如果要改成当前页该怎么表达，因为增加页数，幻灯片的编号也随着变化了。

放映状态下ActivePresentation.SlideShowWindow.View.CurrentShowPosition会返回当前页号

把

1. Set myChartData = ActivePresentation.Slides(1).Shapes(1).OLEFormat.Object

复制代码

改成

1. Set myChartData = ActivePresentation.Slides(ActivePresentation.SlideShowWindow.View.CurrentShowPosition).Shapes(1).OLEFormat.Object

复制代码

在非放映状态测试会报错

fushensong

TuskAi 发表于 2022-12-6 13:46
放映状态下ActivePresentation.SlideShowWindow.View.CurrentShowPosition会返回当前页号

把

非常谢谢！

yangqianming

fushensong 发表于 2022-12-8 15:11
非常谢谢！

牛，数据放在那儿了？