Views

Histats

Vitrine

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


André Luiz Bernardes
A&A - WORK, DON´T PLAY!
http://al-bernardes.sites.uol.com.br/
bernardess@gmail.com

✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias