Pause am Ende einer Endlospräsentation global 0 setzen

[TomTobin]

Hallo,

ich lasse mit Impress automatisch vorgefertigte Powerpointpräsentationen (.pps) in einer Endlosschleife abspielen. Am Ende einer solchen Präsentation legt Impress leider eine 10Sek. Pause ein. Diese Pause könnte man zwar in den Bildschirmpräsentationseinstellungen auf 0 setzen, doch leider gilt das nicht global sondern nur für die jeweilige Präsentation. Da die Präsentationen vorgegeben sind, kann ich das leider nicht manuell ändern (wären auch zu viele).

Gibt es eine Möglichkeit Impress dauerhaft und generell zu überzeugen am Ende keine Pause einzulegen, sondern den Ablauf gleich zu wiederholen?

Gruß

Tom

[TomTobin]

Nach langem Suchen, doch noch eine Lösung bzw. einen Workaround gefunden:

Original gibt es hier: http://www.openoffice.org/issues/show_bug.cgi?id=88112

Hier die (freie) Übersetzung bzw. eine kleine Anpassung für Version 3.2.0:

- Impress starten mit einer leeren Präsentation
- Extras -> Makros -> Makros verwalten -> OpenOffice.org Basic...
- im linken Bereich wählen: Meine Makros -> Standard -> Module1
- im rechten Bereich wählen: Main
- Auf Bearbeiten klicken
- Es öffnet sich ein Fenster mit etwa folgendem Inhalt:

Code: Alles auswählen

REM  *****  BASIC  *****

Sub Main

End Sub

Diesen Inhalt durch folgenden ersetzen:

Code: Alles auswählen

REM  *****  BASIC  *****
REM Set presentation variables for all presentations
REM See also the OOo Developer's Guide:
rem http://wiki.services.openoffice.org/w/images/9/93/
rem DevelopersGuide_OOo3.1.0_09DrawingDocuments.odt

Sub Main

Dim Doc As Object
Dim Presentation As Object

Doc = ThisComponent
Presentation = Doc.Presentation

REM Uncomment the line below to make all presentations loop endlessly:
REM Presentation.IsEndless(True)

REM Uncomment the line below to make all presentations run fullscreen:
REM Presentation.IsFullScreen(True)

REM Uncomment the line below to remove the 10-second delay:
Presentation.Pause = 0

REM Uncomment the line below to bypass the navigator on program start:
REM Presentation.StartWithNavigator(False)

REM Uncomment the line below to make sure presentations always run on top:
REM Presentation.IsAlwaysOnTop(False)

REM Uncomment the line below to change slides automatically rather than manually
rem on all presentations:
REM Presentation.IsAutomatic(True)

REM Uncomment the line below to allow animations in all presentations:
REM Presentation.AllowAnimations(True)

REM Uncomment the line below to always hide the mouse during presentations:
REM Presentation.IsMouseVisible(False)

REM Uncomment the line below to start presentations directly on opening:
REM Presentation.start()

End Sub

- Datei -> speichern (evtl. dem makro einen passenderen Namen geben)
- Extras -> Anpassen...
- Den Tab "Ereignisse" wählen
- Das Ereignis "Dokument öffnen" wählen
- Bei "Speichern in" sollte OpenOffice.org stehen da dann in die globalen Einstellungen
gespeichert wird.
- Auf "Makro" klicken
- Im linken Bereich "Meine Makros -> Standard -> Module1" wählen
- "Main" im rechten bereich wählen und auf OK klicken
- den noch offenen Dialog auch mit OK bestätigen
- und Datei -> Beenden wählen
- Fertig

Ich habe nur die kleingeschriebenen "rem" hinzugefügt, da sonst bei mir Fehler im Macro-Ablauf erschienen sind.

Nun kann jede Powerpoint-Präsentation einfach mit den üblichen Parametern (ooffice -impress -norestore -show name.ppt) gestartet werden und wird sofort nach dem Ende wiederholt ohne das 10 Sek. Pause eingeblendet werden.

Nachteil: Bei anderen Aufrufen bzw. arbeiten mit OpenOffice kommt es beim öffnen von Dokumenten zu einem Makrofehler - der hat zwar keine Auswirkungen - ist aber lästig.

Für meine Belange reicht diese Lösung aber.

Gruß

Tom