I want to share with You guys this RNG Macro, made to spice things up in a PPT Games. Sub Rng()
Decisión = Int(Rnd() * 4) + 1
If Decisión = 1 Then
SlideShowWindows(1).View.GotoSlide (3)
End If
If Decisión = 2 Then
SlideShowWindows(1).View.GotoSlide (4)
End If
If Decisión = 3 Then
SlideShowWindows(1).View.GotoSlide (5)
End If
If Decisión = 4 Then
SlideShowWindows(1).View.GotoSlide (6)
End If
End Sub
If You guys need help or explanations please feel free to ask.
Download Link: https://www.mediafire.com/file/mjybg9j18wj1661/RNG_Macro.ppsm/file
The number of Slides is the exact same number of decisions so per say, you want 5 possible results.
Example: Decisión = Int(Rnd() * 5) + 1
If Decisión = 1 Then
SlideShowWindows(1).View.GotoSlide (3)
End If
If Decisión = 2 Then
SlideShowWindows(1).View.GotoSlide (4)
End If
If Decisión = 3 Then
SlideShowWindows(1).View.GotoSlide (5)
End If
If Decisión = 4 Then
SlideShowWindows(1).View.GotoSlide (6)
End If
If Decisión = 5 Then
SlideShowWindows(1).View.GotoSlide (7)