Makrók PowerPointban

Olyan alkalmazást kerestünk, amely véletlen sorrendben vetít képeket.Közben találtunk erre a lehetőségre. Gyakori kérdések oldalon kérdezte valaki ugyanezt a PowerPointról. A válasz:
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.)
Működik, kipróbáltuk.
forrás:https://www.gyakorikerdesek.hu/szamitastechnika__programok__2865988-hogy-lehet-veletlenszeru-diavetitest-beallitani-powerpointban
legendavagyok01 bejegyzése