3

PowerPoint のマクロを作成して、PowerPoint のすべてのスライドをランダムな順序で含むカスタム ショーを生成したいと考えています。どうすればいいですか?それを実行して、毎回異なるカスタム ショーを作成できるようにしたいと考えています。

PowerPoint を使用してから 3 年が経ちましたが、VB を使用した唯一の経験は、2004 年に VB6 を少し使用したことだけです。

4

1 に答える 1

3

ここで情報をチェックしてください。

サンプル:

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
于 2009-09-28T04:58:47.130 に答える