IMPRESS: Folien mischen oder per macro eine zufällige Folie aufrufen

[Quak]

Hi,

ich suche eine Möglichkeit Folien automatisch zu mischen oder eine zufällige Folie aufzurufen. Ziel ist es aus einer überschaubaren Menge an Folien immer zufällig eine auszuwählen oder es zumindest so erscheinen zu lassen. Ich hätte gedacht, es ist einfach beim Folienübergang ein Macro zu starten, welches eine zufällige Folie aufruft. Aber ich finde leider keinen Hinweis, wie das geht. Hat vielleicht jemand eine Idee?

Vielen Dank

jkl

[Quak]

Da ich nach 4 Jahren noch mal zur gleichen Frage gekommen bin und jetzt eine Antwort gefunden habe, hier die Lösung:

Code: Alles auswählen

Sub GeheZuFolieZufall

    Dim oDoc As Object
    Dim oPresentation As Object
    Dim oSlides As Object
    Dim oSlide As Object

    oDoc = ThisComponent
    oPresentation = oDoc.Presentation()
    oController  = oPresentation.Controller
   iAnzahl = oDoc.Drawpages.count()

    
	i=Int(rnd()*(iAnzahl-1))
    oSlides = oDoc.getDrawPages()
    oSlide = oSlides.getByIndex(i)  
    oController.gotoSlide(oSlide)
    
    Das Macro als Interaktion für ein Element auswählen und schon ist der Drops gelutscht.
    
End Sub