LibreOffice-Forum

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

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

LibreOffice-Forum

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

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

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