如何从excel粘贴到powerpoint 2007默认使用vba

我想使用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

我知道了。 我不知道问题出在哪里。 但是，对我来说，解决scheme是使用PPApp.ActiveWindow.View.PasteSpecial来PPSlide.Shapes.PasteSpecial ppPasteDefault PPApp.ActiveWindow.View.PasteSpecial DataType:=ppPasteDefault

谢谢

Answer 2

尝试

 PPSlide.Shapes.PasteSpecial DataType:=ppPasteOLEObject, Link:=msoFalse 

代替

 PPSlide.Shapes.PasteSpecial ppPasteDefault 

这适用于我在MS Office 2010，但我没有2007年，因为你这样做可能无法正常工作。

在这里find这个代码

希望能帮助到你