Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

Views

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.





Related Posts Plugin for WordPress, Blogger...

Vitrine

diHITT - Notícias