Create Spirograph
Date Created:
Last Updated: March 2nd 2009
Note: If you don't know how to use macro snippets or scripts inside PowerPoint, look here...
Thanks to my friend Shyam Pillai for providing this code:
Sub CreateSpirograph()
Dim oShp As Shape
Dim I As Single
Const ROTATION_INCREMENT = 5 'Rotation Increment
Const ROTATION_MAX = 360 'Max rotation
'Select a shape on the slide and then run this
Set oShp = ActiveWindow.Selection.ShapeRange(1)
For I = ROTATION_INCREMENT To ROTATION_MAX Step ROTATION_INCREMENT
With oShp.Duplicate
.Rotation = I
.Left = oShp.Left
.Top = oShp.Top
End With
Next
End Sub
Remember you need to have some shape selected before you run this code. Also, Shyam adds that you can change the ROTATION_INCREMENT and ROTATION_MAX values to get different graphs.
Shyam Pillai is a Microsoft PowerPoint MVP, visit his site for many VBA snippets, free and commercial PowerPoint add-ins
A lot is at stake -- power, money, reputation, future plans, justice. You need to win this case. Your presentation materials surely will play an important role in helping the judge and jury experience the sights, sounds, and details of the case ... or not. The choice is up to you, says one tech-savvy attorney.
The choice is up to you, says one tech-savvy attorney. It all depends upon whether you are willing to push PowerPoint beyond its normal boundaries to maximize its interactive and persuasive potential. This article by Robert Lane and
Bruce A. Olson
provides a better idea of using PowerPoint in court. 
