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