Subscribe to Indezine
Follow Indezine

Follow Indezine on Pinterest
Share This Page
Bookmark and Share
Translate Page











Like This Page
Like This Site


 


Create Spirograph

Date Created:
Last Updated: March 2nd 2009


Product Showcase



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



comments powered by Disqus




Plagiarism will be detected by Copyscape


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

    since November 02, 2000