Day: June 28, 2017

Hello dear visitor. My fiance recently asked me to find a solution for her PP slides that needs to be different each time she presents. Thus, After a quick search, I came across this post which shows of a way to shuffle slides but we needed something that shuffles two consequtive slides so that order doesn’t become broken. Thus, I did a small modification to original code. I strongly advice you to take a look at how to run a macro code on PP before continuing further. It is really easy.

Original code:

Sub sort_rand()

    Dim i As Integer
    Dim myvalue As Integer
    Dim islides As Integer
    islides = ActivePresentation.Slides.Count
    For i = 1 To ActivePresentation.Slides.Count
        myvalue = Int((i * Rnd) + 1)
        ActiveWindow.ViewType = ppViewSlideSorter
        ActivePresentation.Slides(myvalue).Select
        ActiveWindow.Selection.Cut
        ActivePresentation.Slides(islides - 1).Select
        ActiveWindow.View.Paste
    Next

End Sub

My modification:

Sub randm()

    Dim i As Integer
    Dim myvalue As Integer
    Dim islides As Integer
    islides = ActivePresentation.Slides.Count
    For i = 1 To 1000
        myvalue = Int((Rnd * 100 Mod 64) + 1)

        If myvalue Mod 2 = 1 Then
            ActiveWindow.ViewType = ppViewSlideSorter

            ActivePresentation.Slides(myvalue).Select
            ActiveWindow.Selection.Cut
            ActivePresentation.Slides(islides - 1).Select
            ActiveWindow.View.Paste

            ActivePresentation.Slides(myvalue).Select
            ActiveWindow.Selection.Cut
            ActivePresentation.Slides(islides - 1).Select
            ActiveWindow.View.Paste

        End If
    Next i

End Sub

Hope it helps.

Bye.