Error 429 Active X component can’t create object

Asked By 40 points N/A Posted on -
qa-featured

 

Hello,

I’m using MS Office 2010. I’m trying to use a Powerpoint module in my Excel but it gives me several errors. What I’m trying to do is embed the Powerpoint module on one sheet of the Excel, the content of the Powerpoint such as company name will be replaced depending on the contents of an excel range.

I’m getting “Error 429 Active X component can’t create object“. Is this related with my presentation being active or this is already a DLL file error?

Please advise me.

 

Sub changeme(sFindMe As String, sSwapme As String)
Dim osld As Slide
Dim oshp As Shape
Dim otemp As TextRange
Dim otext As TextRange
Dim Inewstart As Integer
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
    If oshp.HasTextFrame Then
        If oshp.TextFrame.HasText Then
            Set otext = oshp.TextFrame.TextRange
            Set otemp = otext.Replace(sFindMe, sSwapme, , msoFalse, msoFalse)
            Do While Not otemp Is Nothing
                Inewstart = otemp.Start + otemp.Length
                Set otemp = otext.Replace(sFindMe, sSwapme, Inewstart, msoFalse, msoFalse)
            Loop
        End If
    End If

Next oshp
Next osld
End Sub
 '————————————————————————-
Sub swap()

Dim sFindMe As String
Dim sSwapme As String
Dim ppApp As PowerPoint.Application
Dim ppPreso As PowerPoint.Presentation
 'Start Powerpoint
 'Look for existing instance
On Error Resume Next
Set ppApp = GetObject(, "PowerPoint.Application")
On Error Goto 0
 'Create new instance if no instance exists
Set ppApp = CreateObject("Powerpoint.Application")
 'Open Template in word
With Sheets("Sheet1").Shapes("Object 1").OLEFormat.Verb(Verb:=xlVerbOpen)
End With
 'Make it visible
ppApp.Visible = True
sFindMe = "Name To Find"
 'change this to suit
sSwapme = "New Name"
Call changeme(sFindMe, sSwapme)
 'sFindMe = "<find2>"
 'sSwapme = ActivePresentation.Slides(1).Shapes(2).TextFrame.TextRange
 'Call changeme(sFindMe, sSwapme)
End Sub

SHARE
Best Answer by Devid James
Answered By 0 points N/A #131395

Error 429 Active X component can’t create object

qa-featured

Hi there user:

This error message occurred because some installed programs weren’t able to register the files correctly.

Note: Uninstalling will be your very last option.

Click Start then go to your Control Panel. Find Programs and then Program Features. Select your version of Microsoft Office. Right-click and hit Change –> Repair. 

I hope this could help.

Thanks for asking here at techyv.com

Best regards, 

Best Answer
Best Answer
Answered By 0 points N/A #195038

Error 429 Active X component can’t create object

qa-featured

Dear Greg Lewis,

I've been notified about your problem and hopefully my instructions would help you to resolve your problem. You are trying to embed the PowerPoint module on one sheet of the Excel and you are not being able to create object. These kinds of problems are usually happen because of corrupted installation.  So please reinstall your MICROSOFT OFFICE 2010. Hope you would be able to resolve your problems.

Best Wishes-                                                                                                                                                       Devid James

Login/Register to Answer

Related Questions