Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2005

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

Search the Archive

Re: automatic slide shift

  • To: mathgroup at smc.vnet.net
  • Subject: [mg57788] Re: [mg57725] automatic slide shift
  • From: Omega Consulting <info at omegaconsultinggroup.com>
  • Date: Wed, 8 Jun 2005 03:21:38 -0400 (EDT)
  • References: <200506060821.EAA12570@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

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?