Slide transition times after a click

  • Thread starter Thread starter billy
  • Start date Start date
B

billy

Hey all,
Is there a way where I can have powerpoint advance a slide some time
after a click (e.g 15 seconds after I click). Currently powerpoint
provides two options: Advancing a slide automatically after a desired
time, and advancing a slide on a click, but not a combination of the
two. I wondering if there is VBA I could use.
Your help is very much appreciated.
Many thanks.

[On what I am trying to do: We have created an improved, faster system
for an existing application. I am trying to create 2 interactive
powerpoints (using hyperlinks and basic VBA) for the business that
would mimic the actual application and maybe demonstrate the fact that
the pages on the new system (web based) load a lot faster (up to 10
seconds faster) than on the older system, thus saving the user a lot
of time overall.]
 
In VBA, you can certainly program in a delay. See, for example, Example
8.4 on my site:

http://www.PowerfulPowerPoint.com/

Add code to hyperlink right after a wait, and it should do what you want.
I thought you could do something with custom animations, but as soon as
you set the automatic transition, the slide goes automatically, not
waiting for a click and even does your animation that is set to wait for
a click.

--Daivd

--
David M. Marcovitz
Microsoft PowerPoint MVP
Director of Graduate Programs in Educational Technology
Loyola College in Maryland
Author of _Powerful PowerPoint for Educators_
http://www.PowerfulPowerPoint.com/
 
If you are required to have VBA on board anyhow ...

You could ...

Create a rectangle and cover the entire slide with it. Make it 99%
transparent. Set it's action setting to run DelayMe on click.


Delay loop method...

Enter this code.
=====Code start=====
Sub DelayMe(oShp As Shape)
If SlideShowWindows.Count < 1 Then
Exit Sub
End If
Dim MyT As Single
MyT = Timer
Do While MyT + 10 < Timer
Loop
SlideShowWindows(1).View.Next
End Sub
=====Code end=====



Or, you could use the Sleep method.
http://www.pptfaq.com/FAQ00466.htm

=====Code start=====
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub DelayMe(oShp As Shape)
If SlideShowWindows.Count < 1 Then
Exit Sub
Else
Sleep (10000)
SlideShowWindows(1).View.Next
End If
End Sub


=====Code end=====


--
Bill Dilworth
A proud member of the Microsoft PPT MVP Team
Users helping fellow users.
http://billdilworth.mvps.org
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
vestprog2@ Please read the PowerPoint FAQ pages.
yahoo. They answer most of our questions.
com www.pptfaq.com
..
 
Thanks guys for your prompt responses.
David, your solution worked beautifully, thanks so much!


In VBA, you can certainly program in a delay. See, for example, Example
8.4 on my site:

http://www.PowerfulPowerPoint.com/

Add code to hyperlink right after a wait, and it should do what you want.
I thought you could do something with custom animations, but as soon as
you set the automatic transition, the slide goes automatically, not
waiting for a click and even does your animation that is set to wait for
a click.

--Daivd

--
David M. Marcovitz
Microsoft PowerPoint MVP
Director of Graduate Programs in Educational Technology
Loyola College in Maryland
Author of _Powerful PowerPoint for Educators_
http://www.PowerfulPowerPoint.com/

Hey all,
Is there a way where I can have powerpoint advance a slide some time
after a click (e.g 15 seconds after I click). Currently powerpoint
provides two options: Advancing a slide automatically after a desired
time, and advancing a slide on a click, but not a combination of the
two. I wondering if there is VBA I could use.
Your help is very much appreciated.
Many thanks.

[On what I am trying to do: We have created an improved, faster system
for an existing application. I am trying to create 2 interactive
powerpoints (using hyperlinks and basic VBA) for the business that
would mimic the actual application and maybe demonstrate the fact that
the pages on the new system (web based) load a lot faster (up to 10
seconds faster) than on the older system, thus saving the user a lot
of time overall.]
Click to expand...
Click to expand...
 
Back
Top