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

--
AccessRAM

That's really a PowerPoint VBA question, as much as an Access one.

See if this helps:
http://groups.google.com/group/micro...age+vba&qt_g=1

How I found that PowerPoint newsgroup:
http://tc2.atspace.com/0013-HowToSea...#FindNewsgroup

HTH,
TC (MVP Access)
http://tc2.atspace.com

can you give me a web to go to so i can get on to it thank you

"TC" wrote:

> That's really a PowerPoint VBA question, as much as an Access one.
>
> See if this helps:
> http://groups.google.com/group/micro...age+vba&qt_g=1
>
> How I found that PowerPoint newsgroup:
> http://tc2.atspace.com/0013-HowToSea...#FindNewsgroup
>
> HTH,
> TC (MVP Access)
> http://tc2.atspace.com
>
>