PowerPoint Programming
Everything about PowerPoint programming including VBA, VSTO, and more.
Note: If you don't know how to use macro snippets or scripts inside PowerPoint, look here... Labels: powerpoint, programming, snippets, spirograph, vba
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)
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
Archives:
Dr. Carmen Taran's presentations and workshops help business professionals to use communication and presentation skills to increase revenue, train or motivate others, and overall to stand out from too much sameness in the industry. A published author, Carmen is frequently invited as a keynote speaker at various conferences. In this interview, she talks about her book, shares ideas about creating better presentations, and then discusses imagination and sincerity.
