Temos alguma coisa sobre isso no forum. Tente uma pesquisa usando powerpoint.

Algo sobre isso... Não testei ainda..

Sub Export2Powerpoint(filePath as string, title as string)

Dim ppApp As PowerPoint.Application
Dim ppPres As PowerPoint.Presentation
Dim ppCurrentSlide As PowerPoint.Slide

Set ppApp = CreateObject("PowerPoint.Application", "")

ppApp.Visible = True

Set ppPres = ppApp.Presentations.Open(filePath) ' filePath is the path to the PowerPoint template file

Set ppCurrentSlide = ppPres.Slides(1)

ppCurrentSlide.Shapes("Title").TextFrame.TextRange.Text = title
ppCurrentSlide.Shapes("MyName").TextFrame.TextRange.Text = "My exported text"

Set ppApp = Nothing
Set ppPres = Nothing
Set ppCurrentSlide = Nothing


End Sub

Ou este

Set Pwr_Pnt = CreateObject("Powerpoint.application")
Pwr_Pnt.Activate
Set Presentation = Pwr_Pnt.Presentations.Open
(Template_Name)
Pwr_Pnt.ActivePresentation.SaveAs PP_Filename

With Presentation
DoCmd.OpenForm "RTS_Chart"
Screen.ActiveForm!TheChart.Action =
acOLECopy ' TheChart is the name of my chart in the
form
SlideNum = SlideNum + 1
.Slides.Add SlideNum, ppLayoutTitleOnly
.Slides(SlideNum).Shapes
(1).TextFrame.TextRange.Text = "Actual vs. Projected
Expenditures"
.Slides(SlideNum).Shapes.Paste
end with

Here's how to add a slide with bulleted text:
With Presentation
SlideNum = SlideNum + 1
.Slides.Add SlideNum, ppLayoutTitle
.Slides(SlideNum).Shapes
(1).TextFrame.TextRange.Text = "Internal Issues"
.Slides(SlideNum).Shapes(1).Top = 0
.Slides(SlideNum).Shapes(1).Left = 100
.Slides(SlideNum).Shapes.AddTextbox
msoTextOrientationHorizontal, 100, 100, 200, 150
.Slides(SlideNum).Shapes
(2).TextFrame.TextRange.Text = "None"
.Slides(SlideNum).Shapes(2).Top = 100
.Slides(SlideNum).Shapes(2).Left = 20
.Slides(SlideNum).Shapes
(2).TextFrame.TextRange.ParagraphFormat.Bullet.Type =
ppBulletUnnumbered
.Slides(SlideNum).Shapes
(2).TextFrame.TextRange.ParagraphFormat.Alignment =
ppAlignLeft
end with

Selecione o Microsoft PowerPoint 9.0 Object Library
como uma de suas referências em VB

A solução está perto.. Encontrei problema ao copiar o campo ole com o pdf para a area de transferencia..

A lógica disso será:

Exportar o relatorio como PDF
Ler o PD no Form
Criar a apresentação

A linha que estou com problema:

Me.AcroPDF0.Action acOLECopy ' TheChart is the name of my chart in the Form

A modelo para quem puder auxiliar.

[Você precisa estar registrado e conectado para ver este link.]

Cumprimentos

Tem que ter o arquivo teste.pptx no dir da aplicação.. ele abrirá como template para receber a nova apresentação.