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 IntegerDim Ilower As IntegerDim Ifrom As IntegerDim Ito As IntegerDim i As IntegerLet 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
RandomizeLet Ifrom = Int((Iupper - Ilower + 1) * Rnd + Ilower)Let Ito = Int((Iupper - Ilower + 1) * Rnd + Ilower)ActivePresentation.Slides(Ifrom).MoveTo (Ito)
Next iExit 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
Nenhum comentário:
Postar um comentário