vba - 制作宏以在 Powerpoint 中生成自定义节目

Question

我想为 PowerPoint 制作一个宏，以生成自定义节目，其中包含我的 PowerPoint 中的所有幻灯片，但顺序随机。我该怎么做？我希望每次都能运行它并创建不同的自定义节目。

自从我使用 PowerPoint 已经 3 年了，我对 VB 的唯一经验是 2004 年的一点点 VB6。

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