Exporting access data to Powerpoint slides

[dlmcfc]

Hi,

I have an Access databse with about 150 records in it. I would like to
export selected fields from the database to a Powerpoint presentation.

Each record in the database represents a project, and each project requires
an individual slide.

Each slide would be identical in terms of formatting, but the data in each
text box on the slide would need to be imported from a different field the
Access databse.

I have found some example code on the Internet that has allowed me to export
the data from Access to Powerpoint. I created a 'Form' in Access and assigned
some VB code to a command button. When the button is clicked, a Powerpoint
presentation is created, and the title of each project is placed on an
individual slide, along with the project owners name. Here is the code:

----------------------------------------------------------------

Option Compare Database

Option Explicit

Sub cmdPowerPoint_Click()
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 Project List table.
Set db = CurrentDb
Set rs = db.OpenRecordset("Project List", dbOpenDynaset)

' Open up 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 =
CStr(rs.Fields("Topic_Owner (my:myFields/my:CBT_Topic_Owner)").Value)
.Shapes(2).TextFrame.TextRange.Text =
CStr(rs.Fields("Project_Name").Value)
End With
rs.MoveNext
Wend
End With

Exit Sub

err_cmdOLEPowerPoint:
MsgBox Err.Number & " " & Err.Description
End Sub

-----------------------------------------------------------------------------

My question is, can I add more fields to be exported? Currently there is
only two fields, and I need about 20 per slide.

Also, can I format the slide, so text boxes are aligned, coloured and sized
to my requirements? Could I specify a pre-formatted slide that should be used
when creating the presentation?

I have tried to do this myself, but my lack of coding knowledge is
restricting me!

Many thanks in advance,
dlmcfc

 

[Tom van Stiphout]

On Wed, 19 Mar 2008 04:41:01 -0700, dlmcfc

Yes you can. This is the perfect opportunity to enhance your coding
skills. Start with understanding EVERY LINE of the code you already
have. Soon you'll see that it sets the Text property of two Shape
objects. Then you think: what if I add 18 more shape objects...

-Tom.