[Resolvido]Powerpoint

Boa tarde,

Após varias pesquisas na net, não encontrei nada que me pudesse ajudar.

Ter numa base de dados 10 relatórios ou mais e criar uma apresentação a powerpoint?
O unico codigo que consegui ter como exemplo está abaixo, mas só vai buscar os dados a uma tabela e eu keria k ele me colocasse cada relatório como sendo uma pagina no powerpoint.
é possivel????

Dim db As Database, rs As Recordset
   Dim ppObj As PowerPoint.Application
   Dim ppPres As PowerPoint.Presentation
   
   On Error GoTo err_cmdOLEPowerPoint
   
   ' Open up a recordset on the Employees table.
   Set db = CurrentDb
   Set rs = db.OpenRecordset("Employees", dbOpenDynaset)
   
   ' Open up an instance of Powerpoint.
   Set ppObj = New PowerPoint.Application
   Set ppPres = ppObj.Presentations.Add
   
   ' Setup the set of slides and populate them with data from the
   ' set of records.
   With ppPres
       While Not rs.EOF
           With .Slides.Add(rs.AbsolutePosition + 1, ppLayoutTitle)
               .Shapes(1).TextFrame.TextRange.Text = "Hi!  Page " & rs.AbsolutePosition + 1
               .SlideShowTransition.EntryEffect = ppEffectFade
               With .Shapes(2).TextFrame.TextRange
                   .Text = CStr(rs.Fields("LastName").Value)
                   .Characters.Font.Color.RGB = RGB(255, 0, 255)
                   .Characters.Font.Shadow = True
               End With
               .Shapes(1).TextFrame.TextRange.Characters.Font.Size = 50
           End With
           rs.MoveNext
       Wend
   End With
   
   ' Run the show.
   ppPres.SlideShowSettings.Run
   
   Exit Sub
   
err_cmdOLEPowerPoint:
   MsgBox Err.Number & " " & Err.Description

Olá Roberto_1977,


Pode informar como resolveu ? 


Se alcançou o objetivo da sua dúvida, compartilhe.


Abraço!

Boa tarde,

Não encontrei nada que me ajudasse em relação ao meu problema.
A maneira não muito pratica que encontrei foi de converter os relatórios para PDF no ACCESS e em seguida envia-los para POWERPOINT.

Abraço.