Home | Products | PowerPoint | Program

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

Social Stuff

Get free PowerPoint backgrounds...

Featured Story

Adobe Captivate's Edit View

In an earlier post last week, I discussed Adobe Captivate's views and compared them to PowerPoint's deafult views. I also explained about the Storyboard View. In this post, I'll look at Captivate's Edit view, which in many ways is similar to PowerPoint's Normal view. If you are not already in Edit view within Captivate, choose the View drop-down in the toolbar, and select Edit View.

Learn more here...

    

Featured Book

PowerPoint 2007 Complete Makeover Kit

PowerPoint 2007 Complete Makeover Kit is out! Check the book on Amazon.com...

And here are some free excerpts...