Prev: Expand/Collapse sub-Bullet Animations
Next: recover PPT from PDF?
From: David Marcovitz on 27 Apr 2010 09:48
On 4/26/10 2:52 PM, lizsantiago wrote:
> I finally found something that makes the effect i was looking and i wanted to posted here just in case anyone else might need it.
> Sub RndSpin(oShp as Shape)
> Dim t As Single
> t = Timer + (Rnd * 4) + 1
> Do Until Timer> t
> oShp.Rotation = oShp.Rotation + 5
> DoEvents
> Loop
> End Sub
> thanks everyone for your help!!!!;>
>
> ---
> frmsrcurl: http://msgroups.net/microsoft.public.powerpoint/Please-Heeeeelp-Vba-code-to-add-animation-to-an-existing-object

That's great. It limits the time of rotation instead of the number of
rotations. However, it is mostly the same idea as what we did. I'm
surprised that the screen refreshes to show the rotation. But if it
works, I'm not going to argue with it.
--David

--
David M. Marcovitz
Author of _Powerful PowerPoint for Educators_
http://www.PowerfulPowerPoint.com/
Microsoft PowerPoint MVP
Associate Professor, Loyola University Maryland
First  |  Prev  | 
Pages: 1 2 3 4 5
Prev: Expand/Collapse sub-Bullet Animations
Next: recover PPT from PDF?