的ActiveX不能創建對象powerpont VBA

Question

我想第一個幻燈片從PowerPoint中複製並在末尾插入，但我得到的ActiveX不能上線

ActivePresentation.Slides(1).Copy 

創建對象這是我的完整的代碼和我已經添加以及

Option Explicit 

Dim myFile, Fileselected As String, Path As String, objPPT As Object 
Dim activeSlide As PowerPoint.Slide 

Sub Generate_PPTs() 

Application.ScreenUpdating = False 

Set myFile = Application.FileDialog(msoFileDialogOpen) 
With myFile 
    .Title = "Choose Template PPT File." 
    .AllowMultiSelect = False 
If .Show <> -1 Then 
    Exit Sub 
End If 
    Fileselected = .SelectedItems(1) 
End With 
Path = Fileselected 

Set objPPT = CreateObject("PowerPoint.Application") 
Set objPPT = objPPT.Presentations.Open(Path) 

Debug.Print objPPT.Name 

ActivePresentation.Slides(1).Copy 
ActivePresentation.Slides.Paste Index:=objPPT.Slides.Count + 1 

Set activeSlide = objPPT.Slides(objPPT.Slides.Count) 

Application.ScreenUpdating = True 
Set objPPT = Nothing 

End Sub 

Answer 1

引用的Microsoft PowerPoint庫嘗試下面編輯的代碼，我有ppApp As PowerPoint.Application和Dim ppPres As PowerPoint.Presentation：

Option Explicit 

Dim myFile, Fileselected As String, Path As String, objPPT As Object 
Dim ppApp As PowerPoint.Application 
Dim ppPres As PowerPoint.Presentation 

Dim activeSlide As PowerPoint.Slide 

Sub Generate_PPTs() 

Application.ScreenUpdating = False 

Set myFile = Application.FileDialog(msoFileDialogOpen) 
With myFile 
    .Title = "Choose Template PPT File." 
    .AllowMultiSelect = False 
If .Show <> -1 Then 
    Exit Sub 
End If 
    Fileselected = .SelectedItems(1) 
End With 
Path = Fileselected 

Dim i As Integer 

Set ppApp = New PowerPoint.Application 
i = 1 

ppApp.Presentations.Open Filename:=Path ' 'PowerPointFile = "C:\Test.pptx" 
Set ppPres = ppApp.Presentations.Item(i) 

' for debug 
Debug.Print ppPres.Name 

ppPres.Slides(1).Copy 
ppPres.Slides.Paste Index:=ppPres.Slides.Count + 1 

Set activeSlide = ppPres.Slides(ppPres.Slides.Count) 

Application.ScreenUpdating = True 
Set ppPres = Nothing 
Set ppApp = Nothing 

End Sub