Создание макроса для создания пользовательского показа в Powerpoint

Question

Я хочу создать макрос для PowerPoint, чтобы сгенерировать пользовательское шоу, содержащее все слайды из моего PowerPoint, но в случайном порядке.Как бы я это сделал?Я хочу иметь возможность запускать его и каждый раз создавать разные пользовательские шоу.

Прошло 3 года с тех пор, как я использовал PowerPoint, и единственным моим опытом работы с VB было небольшое знакомство с VB6 в 2004 году.

Answer 1

Ознакомьтесь с информацией здесь.

Образец:

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