從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