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

Question

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

最大的问题是嵌入数据。据我所知，数据嵌入需要从电源点的开始重新创建图表。（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它是异步的（宏不知道何时完成）。另一个问题向您展示了如何等待其完成。