Like:
'Create the PowerPoint Object
Dim objPP As PowerPoint.Application
Set objPP = New PowerPoint.Application
'Make it visible
objPP.Visible = True
'Open a presentation
Dim objPres As PowerPoint.Presentation
Set objPres = objPP.Presentations.Open("c:\test.ppt")
'Prepare and run
With objPres.SlideShowSettings
.ShowType = ppShowTypeSpeaker
.LoopUntilStopped = False
.RangeType = ppShowAll
.AdvanceMode = ppSlideShowManualAdvance
.Run
End With
--
Chris Hanscom - Microsoft MVP (VB)
Veign's Resource Center
http://www.veign.com/vrc_main.asp
--
Read. Decide. Sign the petition to Microsoft.
http://classicvb.org/petition/
"D & J G" <donan...@optusnet.com.au> wrote in message
news:42349371$0$29445$afc3...@news.optusnet.com.au...