Run-time Error '429' attempting to update BuiltinDocumentPropertie

[lubo]

(With Office 2003 starting from Excel2003...)
attempting to update BuiltinDocumentProperties in powerpoint file from an
excel file, (i just did the same with a word document and an excel worksheet
and i had success), an error says:

Run-time Error '429'
Active X Component is not able to create the object

Any idea or suggest?

My vba program is something like this:

Set curcell = Worksheets("Elenco Documenti").Cells(riga_trattare, 9)
V1 = curcell.Value
Set curcell = Worksheets("Elenco Documenti").Cells(riga_trattare, 24)
My_file_i = curcell.Value

Dim pptApp As PowerPoint.Application
Application.CutCopyMode = False
On Error Resume Next
Set pptApp = GetObject(, "PowerPoint.Application")
If pptApp Is Nothing Then
Set pptApp = GetObject("", "PowerPoint.Application")
End If
On Error GoTo 0
pptApp.Presentations.Open (My_file_i)

************* ERROR ****************
With ActivePresentation.BuiltinDocumentProperties
************* ERROR ****************
.Item(Index:=1).Value = V1
End With
ActivePresentation.Saved = False
ActivePresentation.Save
ActivePresentation.Close
Set pptApp = Nothing


Thank you very much!

 

[lubo]

solved by suggest from another usegroup with:
pptApp. insert

With pptApp.ActivePresentation.BuiltinDocumentProperties
.Item(Index:=1).Value = V1
End With

Thanks