Getting PPT slide show to execute 1

[white605]

The following code in a click event on a form will open and display a ppt file with powerpoint, not the viewer installed on this computer, however the slide show does not play, it just sits there on the first screen for the time in the wait command. I saved the file with one second intervals and have applied the settings to all the slides. I cannot find a command or setting to get it going.

* Clean out any existing references to servers.
* This prevents memory loss to leftover instances.
RELEASE ALL LIKE o*

* For demonstration purposes, make oPowerPoint and oPresentation
* available after this program executes.
PUBLIC oPowerPoint, oPresentation

SET PATH TO "c:\pptapp"

* Open PowerPoint
oPowerPoint = CreateObject("PowerPoint.Application")
oPowerPoint.Visible = .T.

*open the file
oPresentation = getobject("c:\pptapp\Helpful_Full.ppt")

oPresentation.Application.visible = .t.


* Run the slideshow.
*Both Methods to run the show give the same results 
*oPresentation.SlideShowSettings.Run()

With oPresentation.SlideShowSettings
      .ShowType = 3
      .LoopUntilStopped = 1
      .RangeType = 1
      .AdvanceMode = 2
      .Run
   EndWith

*put total runtime in timeout
WAIT WINDOW [waiting for the show to finish] TIMEOUT 25

*exit powerpoint
oPowerpoint.quit

* Clean out any existing references to servers.
* This prevents memory loss to leftover instances.
RELEASE ALL LIKE o*

thanks
wjwjr

 

[StewartUK]

wjwjr,

I found that by removing the ShowType setting, just the following 5 lines of code runs the powerpoint file shown

oPresentation = getobject("I:\AGM, Confs and StaffDays\AGM\05\aboutfr.ppt")
opresentation.SlideShowSettings.LoopUntilStopped = 1
opresentation.SlideShowSettings.RangeType = 1opresentation.SlideShowSettings.AdvanceMode = 2
opresentation.SlideShowSettings.Run()

Hope that helps,

Stewart
PS If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[white605]

Stewart, Thanks for the code - Got it going
wjwjr