Create Spirographs in PowerPoint Programmatically

Created: Friday, March 20, 2009, posted by at 11:08 am

Have you created a Spirograph as a child, or even later? If you don’t know what a Spirograph looks like, the picture below may refresh your memory.

Spirographs in PowerPoint

Yes, Spirograph is one of those brands like Xerox that have lesser-known, technical names. Spirographs are essentially Hypotrochoids or Epitrochoids. Even with such such technical words, Spirographs can be fun, especially when you don’t have to draw with ball point pens on paper, and can do it instead on a PowerPoint slide!

You can create Spirograph in PowerPoint quite easily, but it takes time and effort. My friend Shyam Pillai, who is a PowerPoint programming guru stepped in and said I could create Spirographs so much faster programmatically using this code:

Can You Use Scripts in PowerPoint?

If you don’t know how to use macro snippets or scripts inside PowerPoint, look here to get started easily.

Sub CreateSpirograph()
Dim oShp As Shape
Dim I As Single<br />
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)
    With oShp.Duplicate
        .Rotation = I
        .Left = oShp.Left
        .Top = oShp.Top
    End With
End Sub

Remember you need to have some shape selected before you run this code.

You can change the ROTATION_INCREMENT and ROTATION_MAX values to get different graphs for your Spirographs in PowerPoint.

Shyam Pillai is a Microsoft PowerPoint MVP.

His site has many VBA snippets, plus free and commercial PowerPoint add-ins.

Among his well-known add-ins for PowerPoint are Image Importer Wizard, SecurePack, Sequential Save, and Shyam’s Toolbox.

Want to create Spirographs without the programming code? Look at our Spirographs in PowerPoint tutorial.

Related Posts

VBA Code: Remove Underlines from Descenders First a little history -- look at our Stop Underlining Your Descenders! article -- of course, as per that article you can manually remove underlines f...
VBA Code: Change Embedded Videos to Linked? Have you created a huge monster PowerPoint file that's hundreds of megabytes in size or even a gigabyte? The culprit may be any videos you have in...
VBA Code: Remove Animations in PowerPoint Do you want to remove all animations from your slides? You may want to remove animations for a variety of reasons: maybe the sequencing is all messed ...
VBA Code: Random Number Generator Do you want a random number generator for your PowerPoint slide? Do you want some numbers from a chosen sequence of numbers to pop up every time you c...

Microsoft and the Office logo are trademarks or registered trademarks of Microsoft Corporation in the United States and/or other countries.

Plagiarism will be detected by Copyscape

© 2000-2019, Geetesh Bajaj - All rights reserved.

since November 02, 2000