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

Winning at Trial with a Dynamic PowerPoint Presentation

Robert Lane 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.

Bruce A. Olson 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.

Read this now...

 

    
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...



  Page copy protected against web site content infringement by Copyscape


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

    since November 02, 2000