Ahhh, then there is a world of options available to you.
Create a hundred shapes of various sizes and colors, make them 50%
transparent or so and motion path yourself into fame and fortune.
Or use the Windows Media Player visulatations (personal favorite for
filler). Insert | Object | {check box} Create New | {listbox} Windows Media
Player. Right click and select Properties. Change the settings to:
Height 582 (to keep info line) or 595 (for just visuals)
Width = 720
Left = 0
Top = 0
URL = Whatever path to music you want to play or see
Or use this ugly but simple VBA routine to make the shapes on the screen go
hog wild. You may want to include an seizure warning. For more help with
inserting VBA, see:
**How do I USE this VBA stuff in PowerPoint?
http://www.rdpslides.com/pptfaq/FAQ00033.htm
======Code Begin=======
Sub RandomMadness()
Dim intSld As Integer
Dim RandomShape As Integer
intSld = ActivePresentation.SlideShowWindow _
..View.CurrentShowPosition
While SlideShowWindows.Count > 0 And _
ActivePresentation.SlideShowWindow.View _
..CurrentShowPosition = intSld
RandomShape = Int((Rnd * (ActivePresentation _
..Slides(intSld).Shapes.Count)) + 1)
Randomize
With ActivePresentation.Slides(intSld) _
..Shapes(RandomShape)
..Left = .Left + Int(Rnd * 7) - 3
..Top = .Top + Int(Rnd * 7) - 3
..Rotation = .Rotation + Int(Rnd * 7) - 3
Randomize
..Width = .Width + ((Rnd * 5) - 2)
..Height = .Height + ((Rnd * 5) - 2)
..Fill.ForeColor.RGB = RGB(Rnd * 256, _
Rnd * 256, Rnd * 256)
..ZOrder msoBringToFront
End With
DoEvents
Wend
End Sub
======Code End=======
--
Bill Dilworth
Microsoft PPT MVP Team
===============
Please spend a few minutes checking vestprog2@
out
www.pptfaq.com This link will yahoo.
answer most of our questions, before com
you think to ask them.
Change org to com to defuse anti-spam,
ant-virus, anti-nuisance misdirection.
..
..
