从Excel粘贴到Powerpoint中的形状（未知成员）

Question

尝试从Excel复制范围并将其粘贴到使用VBA的Powerpoint时遇到问题。

我收到以下错误： Run-time error (80048240) Shapes (unknown member): Invalid request. Clipboard is empty or contains data which may not be pasted here. Run-time error (80048240) Shapes (unknown member): Invalid request. Clipboard is empty or contains data which may not be pasted here.

使用Excel 2010和Powerpoint 2010在以下代码中引发错误：

ws.Range("A1:Y" & lastRow).Copy

pApp.ActiveWindow.View.GotoSlide 2
pApp.ActiveWindow.Panes(2).Activate

With .Slides(2).Shapes
    .PasteSpecial (ppPasteHTML) `<~~~ Error occurs here!`
End With

仅在使用ppPasteHTML选项或ppPasteDefault选项时会发生这种情况。

剪贴板绝对不是空的，我可以使用Powerpoint中的“粘贴特殊菜单”选项将范围手动粘贴为HTML，这使我感到困惑，因为这是错误指示问题所在。

我研究了几个问题，但都无济于事。 他们表示，我需要先激活幻灯片，然后才能粘贴上面的代码，但是会引发错误。

任何人都可以提出错误原因以及如何解决此问题吗？

Answer 1

我仍然没有解决问题的方法，但是作为一种变通方法，我正在使用以下mso命令：

ws.Range("A1:Y" & lastRow).Copy

pApp.ActiveWindow.View.GotoSlide 2
pApp.ActiveWindow.Panes(1).Activate

pApp.CommandBars.ExecuteMso ("Paste") '<~~ Pastes as default HTML table`

Answer 2

尝试此操作（从PowerPoint方面）：

   Set sld = Application.ActiveWindow.View.Slide
   ws.Range("A1:Y" & lastRow).Copy
   sld.Shapes.PasteSpecial DataType:=ppPasteHTML