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

powerpoint-header.jpg

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.





Nenhum comentário:

Postar um comentário

diHITT - Notícias