コピーエクセル表固有のPPT

Question

詳細スライドに貼り付け：MacのPPT（2016）に マックエクセル（2016）のコピーを

結局、私はすべてのテーブルをループしたいとでは、独自の個々のスライド上の各テーブルを貼り付けますPPT。

しかし、まずExcelから1つのテーブルをコピーして特定の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