VBA Powerpoint - Criando programaticamente um Espirógrafo com VBA - Create a Spirograph in PowerPoint Programattically

Já vi algumas versões de Espirógrafo no MS Excel, mas ainda não tinha visto no MS Powerpoint.

Lembre-se de que precisa ter uma forma selecionada antes de executar esse código. Além disso, altere os valores de ROTATION_INCREMENT e ROTATION_MAX para obter gráficos diferentes.

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

Referência: Shyam Pillai

Tags: Powerpoint, Slide, UDF, random, jump, randômico, programming, snippets, spirograph

André Luiz Bernardes

A&A® - Work smart, not hard.

VBA Blogs

  

bernardes@.com