Views

Histats

Vitrine

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

Inline image 1

✔ VBA Brazil®

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