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

| Blog Office VBA | Blog Excel | Blog Access |

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