PptView automatic slideshow 1

[cdkinfo]

Here is my script and I'm searching for automate the slideshow and timing each slide in 7 sec.

Dim intCount
Set objPresentation = CreateObject("Wscript.Shell")
objPresentation.exec "C:\Program Files\Microsoft Office\Office14\pptview /L C:\Diffusion\Playlist.txt"

wscript.sleep 500
objPresentation.SendKeys "{F5}"

Set objShell = CreateObject("wscript.shell")

wscript.sleep 7000
objShell.SendKeys "{S}"
Do While intCount = 10
objPresentation.SendKeys "{F5}"
wscript.sleep 200
objPresentation.SendKeys "{S}"
wscript.sleep 7000

intCount = intCount +1

Loop

 

[PHV]

And the problem is ?
Anyway, I guess you should replace this:
Do While intCount = 10
with this :
Do While intCount <= 10

Furthermore I'd never use SendKeys without AppActivate.

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[cdkinfo]

Ok, but i want timing each slide, for example 7 sec. but i don't know how much slide there is in the slideshow.