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

Question

我在excel中有一个模板，还有一个PowerPoint模板。

在PowerPoint模板中，我有几个与excel模板链接的图表。

我想做一个循环，以更改excel中的某些内容，以便图表更新为excel和powerpoint文件的“ saveas”，所以我有例如。 模板均构建了100个不同的excel文件和100个不同的powerpoint文件。 我希望能够手动更改那100个excelfile中的一些数据，而指向powerpoint的链接仍然完好无损，因此如果需要，它们也将进行更新。

但是，当我打开PowerPoint模板时，右键单击图表并选择“编辑数据”，那么该图表仍链接到excel模板，而不是excel文件的saveas版本吗？

如何将Powerpoint中图表的链接更改为其他Excel文件名？ 两个Excel文件中的结构相同。

该图表在excel中创建，并复制/粘贴为“保留源格式和链数据”（从丹麦语翻译而来）

任何帮助将不胜感激。

我还尝试了一种解决方案，其中通过vba将复制/粘贴复制到一个空的Powerpoint模板中，但这比较耗时，并且Powerpoint经常崩溃。

Answer 1

假设您对由oSh中的链接图表表示的形状有引用，则将向您显示链接：

Debug.Print oSh.LinkFormat.SourceFullName

并将其更改为其他文件：

oSh.LinkFormat.SourceFullName = "c:\some\path\yourfile.xls"

很可能在yourfile.xls之后还会有！chartname之类的名称……您需要包括该名称。

并首先保存Excel文件，然后更改PPT中的链接以指向它们。 如果将链接更改为指向不存在的文件，则PPT不会引发任何错误； 只需保持链接不变即可。