VBA Powerpoint - Misturando a apresentação dos Slides

Termo de Responsabilidade

Através de código VBA você pode misturar a apresentação dos seus slides.

Sub ShakeSlides()

Dim Iupper As IntegerDim Ilower As IntegerDim Ifrom As IntegerDim Ito As IntegerDim i As Integer 

Let Iupper = InputBox("Qual é a maior numeração do slide para misturar:")Let Ilower = InputBox("Qual é a menor numeração do slide para misturar:") 

If Iupper > ActivePresentation.Slides.Count Or Ilower < 1 Then GoTo errFor i = 1 To 2*I upper RandomizeLet Ifrom = Int((Iupper - Ilower + 1) * Rnd + Ilower)Let Ito = Int((Iupper - Ilower + 1) * Rnd + Ilower)ActivePresentation.Slides(Ifrom).MoveTo (Ito)Next iExit Suberr:MsgBox "O números que entrou não coincidem com a verdade!", vbCritical

End Sub

Tags: VBA, Powerpoint, shake, misturando