別の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のスライドのいずれかとして、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