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

VBA Powerpoint - Embaralhe parte da sua apresentação - Shuffle Part of Presentation

Podemos usar a randomização para embaralhar uma apresentação. Introduza o número do maior e do menor Slide que será usadado: 

Sub ShuffleRange()

Dim Iupper As Integer

Dim Ilower As Integer

Dim Ifrom As Integer

Dim Ito As Integer

Dim i As Integer

Let Iupper = InputBox("Qual é o Nº do último Slide a ser embaralhado?")

Let Ilower = InputBox("Qual é o Nº do menor Slide que será embaralhado?")

If Iupper > ActivePresentation.Slides.Count Or Ilower < 1 Then GoTo err

For i = 1 To 2*Iupper 

Randomize

Let Ifrom = Int((Iupper - Ilower + 1) * Rnd + Ilower)

Let Ito = Int((Iupper - Ilower + 1) * Rnd + Ilower)

ActivePresentation.Slides(Ifrom).MoveTo (Ito)

Next i

Exit Sub

err:

MsgBox "Sua escolha não é possível. Escolha os números de Slides corretamente!", vbCritical

End Sub

Tags: Powerpoint, Slide, UDF, random, jump, randômico, shuffle, embaralhar

André Luiz Bernardes

A&A® - Work smart, not hard.

VBA Blogs

  bernardes@.com

VBA Powerpoint - Mude de Slide randomicamente - Jump to a Random Slide

| Blog Office VBA | Blog Excel | Blog Access |

Este código pode ser utilizado para que mude o Slide aleatoriamente dentro de um determinado intervalo. Poderá criar um botão de ação para a sua execução. Para gerar um número aleatório, utilize a seguinte fórmula: 

Sub randjump()

randomize

Dim Inum As Integer

Let Inum = Int(7 * Rnd + 4)

ActivePresentation.SlideShowWindow.View.GotoSlide (Inum)

End Sub

Tags: Powerpoint, Slide, random, jump, randômico, UDF, change