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