从另一个 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