Run Powerpoint Slideshows from VFP6

Hi everyone,

I am using VFP6 OLE to auto run Powerpoint slide shows with this codes
:

oPPT=CreateObject('Powerpoint.Application')
oPPT.Visible.T.
oPres=oPPT.Presentations.Open('Slides.ppt')
oPres.Slideshowsettings.Run

but before it run the slideshow, the powerpoint window will flash out.
Does anyone know how to run the slide show without showing the
powerpoint window?

I really hope experts out there can help me solve this problem.

Thanks in advance.

Roger
Mon Aug 21 02:54:23 CDT 2006

You could save your presentation as a Powerpoint Slideshow (*.pps) then use
this code to run it:
Declare Integer ShellExecute in Shell32 ;
INTEGER hwnd,;
STRING lpOperation,;
STRING lpFile,;
STRING lpParameters,;
STRING lpDirectory,;
INTEGER nShowCmd

ShellExecute(0,"open","Slides.pps","","",0)

-Roger



<jilliw@gmail.com> wrote in message
news:1156130398.738251.46380@75g2000cwc.googlegroups.com...
> Hi everyone,
>
> I am using VFP6 OLE to auto run Powerpoint slide shows with this codes
> :
>
> oPPT=CreateObject('Powerpoint.Application')
> oPPT.Visible.T.
> oPres=oPPT.Presentations.Open('Slides.ppt')
> oPres.Slideshowsettings.Run
>
> but before it run the slideshow, the powerpoint window will flash out.
> Does anyone know how to run the slide show without showing the
> powerpoint window?
>
> I really hope experts out there can help me solve this problem.
>
> Thanks in advance.
>

jilliw
Mon Aug 21 04:56:50 CDT 2006

Hi Roger,

Thanks for the codes. It is very helpful but I am facing another big
problem i.e. the message appeared at the end of the presentation that
said "End of slide show. Click to Exit" will pause without returning to
the VFP application.

Do you have any similar solution in VFP OLE? I am actually creating a
kiosk application in VFP6 that can auto run multiple Powerpoint
slideshows.

Thanks
JW

Roger Ansell wrote:
> You could save your presentation as a Powerpoint Slideshow (*.pps) then use
> this code to run it:
> Declare Integer ShellExecute in Shell32 ;
> INTEGER hwnd,;
> STRING lpOperation,;
> STRING lpFile,;
> STRING lpParameters,;
> STRING lpDirectory,;
> INTEGER nShowCmd
>
> ShellExecute(0,"open","Slides.pps","","",0)
>
> -Roger
>
>
>
> <jilliw@gmail.com> wrote in message
> news:1156130398.738251.46380@75g2000cwc.googlegroups.com...
> > Hi everyone,
> >
> > I am using VFP6 OLE to auto run Powerpoint slide shows with this codes
> > :
> >
> > oPPT=CreateObject('Powerpoint.Application')
> > oPPT.Visible.T.
> > oPres=oPPT.Presentations.Open('Slides.ppt')
> > oPres.Slideshowsettings.Run
> >
> > but before it run the slideshow, the powerpoint window will flash out.
> > Does anyone know how to run the slide show without showing the
> > powerpoint window?
> >
> > I really hope experts out there can help me solve this problem.
> >
> > Thanks in advance.
> >

Roger
Mon Aug 21 09:42:29 CDT 2006

Hi JW,

> Thanks for the codes. It is very helpful but I am facing another big
> problem i.e. the message appeared at the end of the presentation that
> said "End of slide show. Click to Exit" will pause without returning
> to the VFP application.

OK, I'm still using Powerpoint 8 (aka Powerpoint 97) , or rather,
I hardly ever use it. I don't get the "End of SlideShow" message but
my guess is this is controllable within Powerpoint (ie before you save
the *.pps).

> Do you have any similar solution in VFP OLE?

Automating Powerpoint has little to do with VFP.
IOW, after CreateObject("powerpoint.application"), you're
stuck with Powerpoint's object model. If Powerpoint can't
open a SlideShow without being visible, that's the deal.

Sorry I can't be of any further help.
Maybe others in this NG can offer further assistance, or you might
want to post your question to a Powerpoint/Office NG.

-Roger

Dan
Mon Aug 21 10:58:29 CDT 2006

The "End of Slide Show" message cannot be turned off to my knowledge, but
that would really be a question for a Powerpoint group.

Dan

Roger Ansell wrote:
> Hi JW,
>
>> Thanks for the codes. It is very helpful but I am facing another big
>> problem i.e. the message appeared at the end of the presentation that
>> said "End of slide show. Click to Exit" will pause without returning
>> to the VFP application.
>
> OK, I'm still using Powerpoint 8 (aka Powerpoint 97) , or rather,
> I hardly ever use it. I don't get the "End of SlideShow" message but
> my guess is this is controllable within Powerpoint (ie before you save
> the *.pps).
>
>> Do you have any similar solution in VFP OLE?
>
> Automating Powerpoint has little to do with VFP.
> IOW, after CreateObject("powerpoint.application"), you're
> stuck with Powerpoint's object model. If Powerpoint can't
> open a SlideShow without being visible, that's the deal.
>
> Sorry I can't be of any further help.
> Maybe others in this NG can offer further assistance, or you might
> want to post your question to a Powerpoint/Office NG.
>
> -Roger