excel - VBA - 将图表从 Excel 粘贴到 PowerPoint 时保持源格式

Question

我想使用 VBA 将 Excel 工作簿中的一些图表复制粘贴到 PowerPoint 幻灯片中。这部分很简单，但我也想保留源格式(= Excel 格式)。

1)我第一次使用这种基本代码:

Worksheets("DailyActivityGeneral").ChartObjects("Chart 3").Copy
Set chartGen3 = prsntPP.Slides(16).Shapes.Paste

它工作得很好，除了格式没有保留。

2)然后我尝试使用另一种方法:

Worksheets("DailyActivityGeneral").ChartObjects("Chart 3").Copy
prsntPP.Slides(16).Select
prsntPP.Application.CommandBars.ExecuteMso ("PasteExcelChartSourceFormatting")
prsntPP.Application.CommandBars.ReleaseFocus

这保留了源格式，这很好，但我似乎无法编写:

set chartGen3 = prsntPP.Application.CommandBars.ExecuteMso ("PasteExcelChartSourceFormatting")

(我收到一条错误消息)
问题是我不知道如何操作粘贴的图表(这可以像第一种方法一样使用“chartGen3”)。关于如何处理粘贴的图表的任何想法？这可能会解决我的问题!

3)我注意到，当我在代码开头使用第二种方法时，(几乎)所有复制粘贴操作现在都保持源格式，即使它们是用第一种语法编写的。所以我发现的最好的解决方案，既能够处理我粘贴的图表并保持其源格式，是首先使用第二种方法，删除幻灯片，因为图表不能被操作，然后使用第一种方法与所有其他幻灯片。

但我有最后一个问题:它按预期保持源格式，但由于未知原因，有时它不会(随机行为!)

在将图表从 Excel 复制到 PowerPoint 时，您将如何继续保持源格式？

谢谢 !

Answer 1

这不是一个完美的解决方案，我认为它不是很干净，但至少它有效:

为了保持我所有图表的源格式，我必须经常使用上面帖子中提到的第二种方法，而不是像我第一次那样在我的代码开头使用一次。
似乎它的效果只在有限的时间内保持有效(不知道为什么)——这解释了我描述的“随机行为”。

我本来希望找到一种更好的方法，但到目前为止，这就是我所拥有的!