[Resolvido]Apresentação em Powerpoint

Bom dia galera.

Existe alguma forma de exportar um relatório gerado no access para powerpoint? Se sim como seria?

Valeu.

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

Boa tarde Criquio,

o que encontrei foi postado pelo Harysohn que é abrir uma presentação em powerpoint no form do access, porém a apresentação já existe, o que eu gostaria é gerar o relatório no access e transferí-lo para o powerpoint.

Será que é possível?

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

Valeu Harysohn, vou testar e posto o resultado.

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.

http://dl.dropbox.com/u/26441349/Edso1974_19_09_11.rar

Cumprimentos

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

Edson1974,

Veja se ajuda:

http://www.esnips.com/web/wwwmuca
http://www.esnips.com/doc/721fb335-174a-4769-a502-5ef148d15944/RelParaPowerPoint

Muca

Bom dia.

Muca, é exatamente isso que eu queria, valeu pelo link.

Harysohn muito obrigado pela força, ainda não parei pra testar o código mas se assim o fazer postarei o resultado.

Tenham um ótimo dia.

Bom dia.

Muca, vc saberia como melhorar a resolução da apresentação, ou seja, o relatório que é exportado para o ppt não vai com uma resolução 100%, será que tem como melhorar isso?

Estudei o código mas não consegui identificar onde posso fazer isso.

Abraço.

Edson1974,

Vou ver se encontro uma solução para tal; caso tenha sucesso, postarei no fórum.

Muca.

Resolvido