MathGroup Archive 2005

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: automatic slide shift


If you want a completely automated slide show, then that's pretty easy.

Open the notebook.
nb = NotebookOpen["path_to_notebook"];

Count the slides.
num=Count[NotebookGet[nb], Cell[_, 
"SlideShowNavigationBar",___],Infinity]

For each slide, pause and then move to next slide.
Do[
   Pause[2];
   FrontEndExecute[{FrontEndToken[nb,"ScrollPageNext"]}],
   {num-1}]

For something more sophisticated, that would take a bit more work.

----------------------------------------------
Omega Consulting
The final answer to your Mathematica needs.
http://omegaconsultinggroup.com

On Jun 6, 2005, at 3:21 AM, Guy Israeli wrote:

> Hi
>
> How can I do such that slides will move along automatically every x 
> seconds?
>
> thank,
>
> Guy
>


  • Prev by Date: Solve with assumptions
  • Next by Date: goto and label (cont)
  • Previous by thread: automatic slide shift
  • Next by thread: Making good looking thumbnails with Mathematica?