vba - 如何使用 vba 默认将表格从 excel 粘贴到 powerpoint 2007

Question

我想使用 vba 将表格从 excel 粘贴到 powerpoint。
我正在使用PowerPoint 2007版。
我能够成功粘贴 ppEnhancedmeta 文件。
但是粘贴到 ppPasteDefault 时出现问题。
** 它给出错误“形状(未知成员):无效请求。剪贴板为空或包含可能无法粘贴到此处的数据**

Sub excel_to_powerpoint()     
Dim PPApp As PowerPoint.Application
Dim PPPres As PowerPoint.Presentation
Dim PPSlide As PowerPoint.Slide
Set PPApp = New PowerPoint.Application
PPApp.Visible = True
PPApp.Activate 
Set PPPres = PPApp.Presentations.Add
Set PPSlide = PPPres.Slides.Add(1, ppLayoutBlank)
Sheet2.Range("A1:C5").Copy
For i = 1 To 50000: DoEvents: Next
PPSlide.Shapes.PasteSpecial ppPasteDefault
Set myshape = PPSlide.Shapes(PPSlide.Shapes.Count)
myshape.Left = 50
myshape.Top = 50
Application.CutCopyMode = False
End Sub

有人知道我在哪里做错了。
谢谢

Answer 1

我想通了。
我不知道问题出在哪里。
但对我有用的解决方案是更换
PPSlide.Shapes.PasteSpecial ppPasteDefault和
PPApp.ActiveWindow.View.PasteSpecial DataType:=ppPasteDefault
谢谢