VBA Excel图表到powerpoint-将文件另存为多个输出

VBA Excel图表到powerpoint-将文件另存为多个输出,excel,powerpoint,vba,Excel,Powerpoint,Vba,我有一个excel模板和一个powerpoint模板 在powerpoint模板中,我有几个图表链接到excel模板 我想做一个循环,改变excel中的某些内容,以便图表更新excel和powerpoint文件的“另存为”,因此我有100个不同的excel文件和100个不同的powerpoint文件,都是基于模板构建的。我希望能够手动更改这100个Excel文件中的一些数据,而powerpoint的链接仍然保持不变,以便在需要时也能进行更新 但是,当我打开powerpoint模板时,右键单击图表

我有一个excel模板和一个powerpoint模板

在powerpoint模板中,我有几个图表链接到excel模板

我想做一个循环,改变excel中的某些内容,以便图表更新excel和powerpoint文件的“另存为”,因此我有100个不同的excel文件和100个不同的powerpoint文件,都是基于模板构建的。我希望能够手动更改这100个Excel文件中的一些数据,而powerpoint的链接仍然保持不变,以便在需要时也能进行更新

但是,当我打开powerpoint模板时,右键单击图表并选择“编辑数据”,那么图表仍然链接到excel模板,而不是excel文件的另存为版本

如何将powerpoint中图表的链接更改为其他excel文件名?两个excel文件中的结构相同

图表在excel中创建,并复制/粘贴为“保留源格式和链数据”(翻译自丹麦语)

任何帮助都将不胜感激


我还尝试了一种解决方案,通过vba将复制/粘贴到空的powerpoint模板中,但这更耗时,而且powerpoint经常崩溃。

假设您参考了oSh中链接图表所表示的形状,这将显示以下链接:

Debug.Print oSh.LinkFormat.SourceFullName
这会将其更改为其他文件:

oSh.LinkFormat.SourceFullName = "c:\some\path\yourfile.xls"
最有可能的是,也会有一个!yourfile.xls后面的chartname或类似名称。。。你需要把它包括进去

并首先保存Excel文件,然后更改PPT中的链接以指向它们。如果你改变链接指向一个不存在的文件,PPT不会抛出任何错误;它只会保持链接不变