vba - 将图表从 Excel 复制到 PowerPoint 的脚本出错

Question

我试图调用下面的 Sub 以便将给定的图表复制到指定的 PowerPoint 演示文稿中。但是，当我运行调用此 Sub 的宏时，下面指示的行返回以下错误:“对象不支持此属性或方法。”奇怪的是 Shapes 和 Slide 都包含被调用的方法。同样，位图已正确复制到我的剪贴板并在调用错误之前粘贴到幻灯片中。您将在下面找到 Sub()。

Sub copyChart(chrt As Chart, pres As PowerPoint.Presentation)
    Dim curSlide As Slide, dummySlide As Slide
    Set dummySlide= pres.Slides(2) 'Second slide is dummy slide.
    Set curSlide = dummySlide.Duplicate(1) 'Duplicate dummy, set as current slide.
    chrt.CopyPicture Appearance:=xlScreen, Format:=xlBitmap 'Copy the chart as a picture.
    curSlide.Shapes.Paste '<-----------Error here.
End Sub

同样，我希望提供整个脚本的 .txt 文件，但不确定如何(粘贴到这里有点长)。谢谢你的帮助。

(请注意，这个实现与 Paste Excel Chart into Powerpoint using VBA 的实现非常相似，这让我更加困惑。)

Answer 1

我在最新版本的 Office 中遇到了很多麻烦。 2003 年及更早的版本没有这个问题，2007 年和 2010 年有一点，2013 年和 2016 年有这个问题。

当您逐步执行代码时，它可以正常工作，但是当您全速运行它时，它会在粘贴时出错。

就好像复制没有时间完成完成，所以当你粘贴剪贴板时没有任何东西可以粘贴。

有时这会有所帮助:

chrt.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
DoEvents
curSlide.Shapes.Paste

DoEvents告诉 VBA 在后台操作有机会完成时等待。