Views

Histats

Vitrine

VBA Powerpoint - Mude de Slide randomicamente - Jump to a Random Slide


powerpoint-header.jpg
Este código pode ser utilizado para que mude o Slide aleatoriamente dentro de um determinado intervalo. Poderá criar um botão de ação para a sua execução. Para gerar um número aleatório, utilize a seguinte fórmula: 

Sub randjump()
randomize

Dim Inum As Integer

Let Inum = Int(7 * Rnd + 4)

ActivePresentation.SlideShowWindow.View.GotoSlide (Inum)
End Sub


Tags: Powerpoint, Slide, random, jump, randômico, UDF, change



✔ VBA Brazil®

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