从另一个ppt复制粘贴数据时出错

Question

我试图将幻灯片1从外部ppt复制到当前ppt到备注页面。但是，我收到此错误消息：

  

幻灯片（未知成员）：无效的请求。剪贴板是空的或   包含可能未在此处粘贴的数据。

我复制的外部ppt包含数据。

VBA脚本：

Sub copySlide()
Dim objPresentation As Presentation

Set objPresentation = Presentations.Open("/path/slides.ppt")

objPresentation.Slides.Item(1).Copy
Presentations.Item(1).Slides.Paste

objPresentation.Close
End Sub

Answer 1

请尝试以下代码，我希望您在("/path/slides.ppt")的演示文稿不会出错。

我添加了2个选项，要么将其放在最后，要么作为第二张幻灯片 - 您可以轻松修改Paste行

<强>代码

Sub copySlide()

Dim MyPres          As Presentation
Dim objPresentation As Presentation

Set MyPres = ActivePresentation
Set objPresentation = Presentations.Open("/path/slides.ppt")

objPresentation.Slides(1).Copy
'MyPres.Slides.Paste MyPres.Slides.Count + 1 ' <-- place it at the end
MyPres.Slides.Paste 2 ' <-- place it as the second slide

objPresentation.Close
Set objPresentation = Nothing ' clear object

End Sub