Randomize the animation sequence

[Alexf]

Is there any way to randomize the order of several "Fade Effect" custom
animation objects? (by several, I mean about 263)

Also: is there any way to randomize delay timing (and set the allowed range
of start times)?

Thanks in advance,
Alexf

 

[Bill Dilworth]

Random in PowerPoint usually means VBA coding. Are you able to run code on
the system or will you be distributing it?


--
Bill Dilworth

vestprog2@ Please read the PowerPoint FAQ pages.
yahoo. They answer most of our questions.
com www.pptfaq.com
..

 

[John Wilson]

As Bill says this can only really be done with code.
There's a simple example here:
"Modify animations with vba"
http://www.pptalchemy.co.uk/powerpoint_hints_and_tips_tutorials.html#vba
--

john ATSIGN PPTAlchemy.co.uk
Custom vba coding and PPT Makeovers
Free PPT Hints, Tips and Tutorials
http://www.pptalchemy.co.uk/powerpoint_hints_and_tips_tutorials.html

 

[Alexf]

Thanks guys. I knew that VBA was involved, I just forgot to mention it. Thanks!

 

[Alexf]

Also:
on the website, I found this code for controlling movement.

Sub getname(oshp As Shape)
'gets name of shape to move
myname = oshp.Name
End Sub

Sub goright()
Dim oshp As Shape
'If shape name not picked up the code will error
'this line just runs the code on error
'but does nothing
On Error Resume Next
Set oshp = ActivePresentation.SlideShowWindow _
..View.Slide.Shapes(myname)
'rotates shape in direct of travel
oshp.Rotation = 90
'checks for edge of slide and moves shape if not there
If oshp.Left + oshp.Width < ActivePresentation.PageSetup _
..SlideWidth Then oshp.Left = oshp.Left + 10
End Sub

Sub goleft()
Dim oshp As Shape
On Error Resume Next
Set oshp = ActivePresentation.SlideShowWindow _
..View.Slide.Shapes(myname)
oshp.Rotation = 270
If oshp.Left > 0 Then oshp.Left = oshp.Left - 10
End Sub

Sub goup()
Dim oshp As Shape
On Error Resume Next
Set oshp = ActivePresentation.SlideShowWindow _
..View.Slide.Shapes(myname)
oshp.Rotation = 0
If oshp.Top > 0 Then oshp.Top = oshp.Top - 10
End Sub

Sub godown()
Dim oshp As Shape
On Error Resume Next
Set oshp = ActivePresentation.SlideShowWindow _
..View.Slide.Shapes(myname)
oshp.Rotation = 180
If oshp.Top + oshp.Height < ActivePresentation.PageSetup _
..SlideHeight Then oshp.Top = oshp.Top + 10
End Sub

is there any way for an action to happen when the shape reaches a certain
point?

Also: how would you reset it?

Thanks.