复制Excel表格粘贴到具体的PPT幻灯片

Question

详情： Mac的Excel文件（2016）复制到Mac地产（2016）

最后，我想通过所有的表环和粘贴在它自己单独的幻灯片每个表PPT。

但首先我试图从Excel复制一个表格并粘贴到特定的PPT文件（不是网络新的演示文稿）。

Sub OpenPPTandCopySelectedTable() 

Dim PPT As PowerPoint.Application 
Set PPT = New PowerPoint.Application 
PPT.Visible = True 

'Open the specific Template 
PPT.Presentations.Open Filename:="/Users/MyNameHere/Downloads/FileName.pptx" 

'Make Specific File the Active Presentation 
Set PPPres = PPT.ActivePresentation 

'Copy the Excel Table 
Range("Table1[#All]").Copy 

'Select PowerPoint Slide number 2 
PPT.Slides(2).Select 

'Paste Special 
Application.ActiveWindow.View.PasteSpecial DataType:=ppPastePNG 

End Sub 

我在做什么错？任何帮助，将不胜感激。

Answer 1

请尝试下面的代码（不使用Select和ActivePresentation，这将减慢代码的运行时间）。

Option Explicit 

Sub OpenPPTandCopySelectedTable() 

Dim PPT As PowerPoint.Application 
Dim PPPres As PowerPoint.Presentation 
Dim myShape As Object 

Set PPT = New PowerPoint.Application 

' Open the specific Template and set it (in 1 line) 
Set PPPres = PPT.Presentations.Open(Filename:="/Users/MyNameHere/Downloads/FileName.pptx", ReadOnly:=msoFalse) 

'Copy the Excel Table 
Range("Table1[#All]").Copy 

' Paste to PowerPoint and set to MyShape 
'Set myShape = PPPres.Slides(2).Shapes.PasteSpecial(ppPastePNG, msoFalse) 
' if you want to edit the properties 
'With myShape 
    '.Left = 
    '.Top =  
'End With 

' Option 2: 
PPPres.Slides(2).Shapes.PasteSpecial (ppPastePNG) 

End Sub