This is the print version of this page. All content is copyright 2000- .

Create a Spirograph in PowerPoint Programattically

Friday, March 20, 2009
posted by Geetesh on Friday, March 20, 2009 IST

Note: If you don't know how to use macro snippets or scripts inside PowerPoint, look here...

This started with my Create Spirograph in PowerPoint tutorial -- and thanks to my friend Shyam Pillai who said I could do that so much faster programattically by using 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)

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

Labels: , , , ,

comments powered by Disqus


March 2009  |   April 2009  |   July 2012  |   August 2012  |   November 2012  |   April 2013  |  

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

Home | PowerPoint | Photoshop | PowerPoint Templates | PowerPoint Tutorials | Blog | Notes | Ezine | Advertise | Feedback | Site Map | About Us | Contact Us

Link to Us | Privacy | Testimonials

PowerPoint Backgrounds | Christian PowerPoint Backgrounds | Business PowerPoint Presentation Templates

Plagiarism will be detected by Copyscape

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

since November 02, 2000