Export Access Report into Powerpoint

  • Thread starter Thread starter Jerry Black
  • Start date Start date
J

Jerry Black

I am creating a Powerpoint presentation programmatically
inside of Access. I can create text slides and insert
Access Charts into slides. But I haven't found a way to
insert a report into a slide.
Anyone know how to do this?

Thanks,
Jerry
 
I have a similar question. I am trying to create a Slide
Presentation with PowerPoint so that the data in the Slide
Presentation is not static. My client wants the
presentation to automatically reflect any updates to the
database. It doesn't seem you can use the "property
address" methode, etc.

I am interested in how are you creating the PowerPoint
Slide Presentation within the Access Database file. Could
you please enlighten me?

If I find the answer to your question I will let you know.

Thanks.

L
 
I don't know of a way to dynamically update the charts in
the slides as the data in the database changes. I have to
manually re-create the presentation whenever the data
changes.
Here is the code I use to create a chart in a powerpoint
presentation:
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

If you select the MIcrosoft Powerpoint 9.0 Object Library
as one of your references in VB, then you can go into the
object browser (View->Object Browser) and look at all the
classes and properties that are available to you.
I found a lot of information in the microsoft
knowledgebase articles 200551 and 209960.

Good luck.
Jerry
 
Back
Top