Slideshow mode: how to cycle slides automatically?

Question

I'm doing a slideshow for an informative conference, so I need a slideshow running in background on some monitors.

My question is: is there any way to make Mathematica to cycle slides automatically? Manipulate, Animate and SlideView have the "Play" button by which one can set the speed. I'd need something similar for the slideshow.

Any idea is welcome, also those which require the editing of notebook code.

Answer 1

When I execute this code at the beginning of a slideshow, the cells are presented one after the other and the slides change automatically.

nb = EvaluationNotebook[]; n = 20; 
While[True, SelectionMove[nb, Before, Notebook]; 
  Do[SelectionMove[nb, Next, Cell]; SelectionMove[nb, After, Cell]; 
  Pause[1], {n}]]

You might want to change n, and either hide the evaluating cell manually or with code.

You do not have to put that code in your slide show. In fact, you can open the slide show with code from another notebook. In that case, you should change the first command to something like

nb = NotebookOpen[ToFileName[docpath, "document.nb"]];