[Resolvido]Criar um arquivo no powerpoint

Ola a todos,

Estou tentando criar um arquivo no powerpoint atraves do access.

Apos muita pesquisa consegui achar metade do que pretendo e gostaria que voces me ajudassem a terminar.


Eu preciso criar um novo arquivo com um nome especifico (que futuramente vira de uma consulta, mas para exemplo vou chamar de F:\test.ppt.

esse eh o codigo que eu tenho:

Private Sub cmdPWRPTT_Click()
Dim rs As DAO.Recordset
Dim ppObj As PowerPoint.Application
Dim ppPres As PowerPoint.Presentation
Dim x As Integer


' Open up an instance of Powerpoint.
Set ppObj = New PowerPoint.Application

'Open PPT so you can watch process, comment out to just create & save file
ppObj.Activate

Set ppPres = ppObj.Presentations.Add


ActivePresentation.SaveAs "F:\test.ppt"



End Sub



o powerpoint abre mas sem o nome que eu quero, e a ultima linha da um debug.

Sera que alguem sabe onde esta o erro?

muito obrigado

Loconte

Bom dia....

Por algum acaso, seria nessa linha..." ActivePresentation.SaveAs "F:\test.ppt"

Se for, de uma olhada nos activeX.


.....Porem, pesquisando o assunto nesse link tem esse arquivo em Power Point.

Acredito eu que ele pode ser bem útil a você.

Falta ae o object

ppObj.ActivePresentation.SaveAs "F:\test.ppt"

Obrigado Silvio, o site tem otimas informacoes....

Obrigado JPaulo na mosca, estava faltando o object.


Agradeco a ajuda

Valew pelo retorno o forum agradece.