将对象从Excel粘贴到Power Point

Question

Sheets("Sheet 1").Select
Range("B4:G5").Select
Selection.Copy
DoEvents
PPSlide.Shapes.PasteSpecial(ppPasteBitmap).Select

我已经这样做但有时错误出现就像“方法'粘贴'对象'形状'的'PasteSpecial'失败或因为剪贴板为空而出现错误