2009-09-28 58 views
3

我想爲PowerPoint創建一個宏,以生成自定義顯示,其中包含我的PowerPoint中的所有幻燈片,但是按照隨機順序。 我該怎麼做? 我希望能夠運行它並每次創建不同的自定義顯示。製作宏在Powerpoint中生成自定義顯示

這是3年,因爲我用的PowerPoint,唯一的經驗,我有一個用VB寫的VB6在2004年

回答

3

退房的信息here一點點。

樣品:

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