A
Andrew McGurk
I am generating a presentation in Visual foxPro and it has been running OK.
Recently it has started to always run minimized. I can't see what I changed
to cause this! Below is the code I use.
Is there a setting to force it to run maximised, other than the one I have
tried in this code.
* Setup slide show properties...
With PptPres.Slides.Range.SlideShowTransition
.EntryEffect = 513
.AdvanceOnTime = 1
.AdvanceTime = ThisForm.interval
EndWith
* Prepare and run slide-show!
With PptPres.SlideShowSettings
.ShowType = 3
.LoopUntilStopped = 1
.RangeType = 1
.AdvanceMode = 2
EndWith
PptApp.WindowState = 3
NoLoops = 1
DO WHILE NoLoops <= ThisForm.MaxLoops
PptPres.SlideShowSettings.Run &&& Run VFP-generated slide show
Wait window "Waiting for slide show to finish..." TIMEOUT (N *
ThisForm.Interval)
NoLoops = NoLoops + 1
ENDDO
TIA
Andrew McGurk
Recently it has started to always run minimized. I can't see what I changed
to cause this! Below is the code I use.
Is there a setting to force it to run maximised, other than the one I have
tried in this code.
* Setup slide show properties...
With PptPres.Slides.Range.SlideShowTransition
.EntryEffect = 513
.AdvanceOnTime = 1
.AdvanceTime = ThisForm.interval
EndWith
* Prepare and run slide-show!
With PptPres.SlideShowSettings
.ShowType = 3
.LoopUntilStopped = 1
.RangeType = 1
.AdvanceMode = 2
EndWith
PptApp.WindowState = 3
NoLoops = 1
DO WHILE NoLoops <= ThisForm.MaxLoops
PptPres.SlideShowSettings.Run &&& Run VFP-generated slide show
Wait window "Waiting for slide show to finish..." TIMEOUT (N *
ThisForm.Interval)
NoLoops = NoLoops + 1
ENDDO
TIA
Andrew McGurk