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
>
- References:
- automatic slide shift
- From: Guy Israeli <guyi1@netvision.net.il>
- automatic slide shift