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:
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
Nach langem Suchen, doch noch eine Lösung bzw. einen Workaround gefunden:
Original gibt es hier: [url]http://www.openoffice.org/issues/show_bug.cgi?id=88112[/url]
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]REM ***** BASIC *****
Sub Main
End Sub[/code]
Diesen Inhalt durch folgenden ersetzen:
[code]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[/code]
- 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