UtterAccess.com
X   Site Message
(Message will auto close in 2 seconds)

Welcome to UtterAccess! Please ( Login   or   Register )

Custom Search
 
   Reply to this topicStart new topic
> Using Vba To Loop Through Certain Slides Until A Certain Time, Office 2013    
 
   
Psycoperl
post Nov 20 2019, 04:42 PM
Post#1



Posts: 427
Joined: 11-March 15
From: Somewhere lost in the NY Subways


I am wondering if PowerPoint and VBA could be used to loop through a set of introductory slides (welcome messages) until a certain time which then it would advance to the next slide.
i.e. I would like to have slides 1-4 to rotate through on a loop until it gets to 1PM (where then the next set of slides will go on.)Thanks in advance for any thoughts and guidance.
Go to the top of the page
 
ngins
post Nov 21 2019, 03:25 AM
Post#2



Posts: 365
Joined: 18-August 05
From: DFW, TX, USA


Not sure if you're asking about a delay with each slide, or if you're asking about how to stop slides 1-4 from looping at 1 PM.

To do the latter, you would do this:

CODE
Do
    {stuff to show slides}
Loop Until Now() >= #1:00 PM#


If you want each slide to show for, say, 15 seconds, then it would be something like this:

CODE
Dim dt as Date

dt = DateAdd("s", 15, Now())
{show slide}
Do
Loop Until Now() >= dt

This post has been edited by ngins: Nov 21 2019, 03:26 AM

--------------------
Neil
Accessing since '96
Go to the top of the page
 
Psycoperl
post Nov 21 2019, 04:13 AM
Post#3



Posts: 427
Joined: 11-March 15
From: Somewhere lost in the NY Subways


For example we open doors at 12noon the “walk-in” slides (1-4) would be on a loop
At 1pm we want to move to the rest of the ppt automatically
Go to the top of the page
 
ngins
post Nov 21 2019, 04:51 AM
Post#4



Posts: 365
Joined: 18-August 05
From: DFW, TX, USA


OK, I'm not familiar with powerpoint coding. I was just giving your the code for creating a loop in VBA.

--------------------
Neil
Accessing since '96
Go to the top of the page
 


Custom Search


RSSSearch   Top   Lo-Fi    6th December 2019 - 01:26 AM