VBA错误429“ ActiveX无法创建应用程序对象”

Question

Hi Guyz I'm writing these lines of code with powerpoint but getting error 429

pls help.

Option Explicit

Sub ListSlideInformationInExcel()
Dim i, j As Integer

Cells(1, 1).Value = "slide number"
Cells(1, 2).Value = "Name"
Cells(1, 3).Value = "No. of shapes"

Dim appPower As Object
Set appPower = CreateObject("Powerpoint.Application")
Dim pPres As PowerPoint.Presentation

appPower.Visible = True

appPower.Presentations.Open "C:\Users\SUMIT\Downloads\Slide Show Demo.ppt"

For i = 1 To pPres.Slides.Count
    j = 2
    Range("A" & j).Value = ActiveWindow.Selection.SlideRange.SlideIndex
    Range("B" & j).Value = ActivePresentation.Slides(i).Name
    Range("C" & j).Value = ActivePresentation.Slides(i).Shapes.Count
    j = j + 1
Next
End Sub

Answer 1

This may not fully solve your problem but assuming power point is installed you should be able to use late bound references all the way through as follows.

Option Explicit
Sub ListSlideInformationInExcel()
    Dim i As Long, j As Long
    With ActiveSheet
        .Cells(1, 1).Value = "slide number"
        .Cells(1, 2).Value = "Name"
        .Cells(1, 3).Value = "No. of shapes"

        Dim appPower As Object, pPres As Object
        Set appPower = CreateObject("Powerpoint.Application")
        appPower.Visible = True    
        Set pPres = appPower.Presentations.Open("C:\Users\SUMIT\Downloads\Slide Show Demo.ppt")
        'Other stuff
    End With  
End Sub