Access2003 DB to PowerPoint

[RAM]

I have been able to create a PowerPoint presentation using the following
code, but I would like to include Images in the presentation. The code shows
how to insert the text but I don't understand how to insert images from a
separate field.

Thanks in advance for any help.

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("VideoTable", 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("QUES").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

 

[Brian Reilly, MVP]

RAM, Naresh Nichani, an Access MVP did this for my a few years back.
We used the .AddPicture method as Steve suggests. In our database we
had two fields (among many more). One held the file name, e.g.
MyPicture42.jpg and the other held the path to where that was stored
e.g. C:\My Database\Pictures\
Then in your query retrieve both name and path and pass it to PPT.

Brian Reilly, MVP