Home     PowerPoint     Photoshop     Photos     Other     Studio     Info

Bookmark and Share  



 

 

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



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
PowerPoint 2007 Complete Makeover Kit is out! Check the book on Amazon.com...

And here are some free excerpts...


Home |  PowerPoint |  Photoshop |  Templates |  Blog |  Notes |  Ezine |  Studio |  Advertise |  Feedback |  Info |  Site Map
Store  |  RSS |  Privacy |  Testimonials
Free PowerPoint Backgrounds | Free PowerPoint Templates | Free Christian PowerPoint Backgrounds
Page copy protected against web site content infringement by Copyscape
  Page copy protected against web site content infringement by Copyscape


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

    since November 02, 2000