Hogy lehet véletlenszerű diavetítést beállítani powerpointban?

Fejlesztőeszközök/Makrók

Adsz egy nevet, Rögzítés.

Felugró VB ablakba beilleszted ezt a kódot:

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

Bezárhatod a VB-t.

Powerpoint-ban Fejlesztőeszközök/Makrók, Indítás, majd F5-tel a vetítést is indíthatod.

(Ha jó, akkor a powerpoint-ban egy Mentés.)

Ja tényleg, alapból nincs:

[link]

Esetleg még ez:

[link]