vba - 如何将图表从 Excel 复制到 PowerPoint？

Question

有什么方法可以将图表从 Excel 电子表格复制到 powerpoint，保留原始格式并嵌入数据 ?已经有一个 question
关于以编程方式复制粘贴图表。但是，没有任何关于数据嵌入的说法

最大的问题是嵌入数据。据我所知，数据嵌入需要从电源点的开始重新创建图表。 (PS:通过嵌入我并不意味着链接到外部 excel 文件。)

Answer 1

您需要做的是调用 PasteSpecial“保持源格式和嵌入工作簿”。



假设您已经创建了图表、幻灯片、占位符等，并且您已经复制了图表并导航到了目标幻灯片，并且您有一个像 PPTApp 这样的对象代表PowerPoint.Application目的。

而不是使用 Shapes.PasteSpecial方法，你可以这样做:

PPTApp.CommandBars.ExecuteMso "PasteExcelChartSourceFormatting"

这不会创建指向 Excel 文档的链接，它会在 PowerPoint 演示文稿中嵌入文档的本地副本。我想我明白这是你的要求。

从评论更新
ExecuteMso 上的文档方法:

http://msdn.microsoft.com/en-us/library/office/ff862419.aspx

包含 idMSO 的可下载文档每个 Office 应用程序的参数:

http://www.microsoft.com/en-us/download/details.aspx?displaylang=en&id=6627

注意:如果您想对 .ExecuteMso 之后的粘贴图表进行操作您可能需要检查形状是否已粘贴，因为 .ExcecuteMso是异步的(宏不知道何时完成)。另一个问题告诉你如何 wait for its completion .