✔ Programação GLOBAL®: VBA Powerpoint: Misturando os slides durante a apresentação.

Que tal ter uma apresentação que nunca será mostrada do mesmo jeito!

Informe o primeiro e o último slide disponível e em seguida a aplicação será mostrada aleatoriamente.

Dentro de um range, determinado por você, a sequência seguida será determinada aleatoriamente pelo código abaixo.

Sub Misturando()
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 1º Slide que gostaria de considerar:")
Let Ilower = InputBox("Qual o nº do último Slide que deseja misturar na apresentação:")
  
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 está fora de uma faixa real!", vbCritical
End Sub