VBA错误:需要对象-在2007年运行正常，但在2013年运行不正常

Question

我有一个宏，可以将图表从Excel粘贴到PPT幻灯片。该宏在2007年有效，但在2013年出现错误。我如何解决这个问题，或者强制ppt打开2007？(我的电脑上都有)。

第二行写着'Object Required‘。(看起来粘贴的对象丢失了在幻灯片中的选择或其他内容)

Sheet7.ChartObjects("d1c11").Copy
pptSlide.Shapes.PasteSpecial(DataType:=ppPasteEnhancedMetafile).Select

这就是我打开ppt应用的方式。

Dim pptApp As PowerPoint.Application
Set pptApp = New PowerPoint.Application
pptApp.Visible = True
Dim myPPT As PowerPoint.Presentation
pptApp.Presentations.Open filename:=ppt_path

谢谢!

Answer 1

您可能需要通过引用添加最新的Powerpoint对象库。或者，您可以像这样使用CreateObject：

Dim pptApp, myPPT
Set pptApp = CreateObject("PowerPoint.Application")
pptApp.Visible = True
Set myPPT = pptApp.Presentations.Open(FileName:=ppt_path)

Answer 2

Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
PPSlide.Shapes.PasteSpecial(ppPasteEnhancedMetafile).Select

我在powerpoint 2013中粘贴了4次，然后脚本停止了，而在2007年，随着控件按照定义的流程成功粘贴，我得到了类似的错误。