Randomize the animation sequence

  • Thread starter Thread starter Alexf
  • Start date Start date
A

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
 
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
..
 
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.
 
Back
Top