OpenOffice.info

Hallo,

ich komme mit meiner Praesentation nicht mehr richtig weiter. Vielleicht koennt ihr mir helfen.

Aufgabe:

In meiner permanent laufenden Praesentation soll täglich um 21 Uhr das Ergebnis einer Calc-Tabelle automatisch in der Praesentation aktualisiert werden.

Zu diesem Zweck habe ich in der Praesentation eine Verknuepfung zu dieser Tabelle eingerichtet.

Eine automatische Aktualisierung ist in OOo-Calc zwar vorgesehen, aber aus mir nicht bekanntem Grunde inaktiv.

Die von mir eingesetzte DO-While-Schleife wird zwar durchlaufen, aber aktualisiert wird nichts.

Muss ich die Praesentation vorher stoppen?

Wenn ich das (manuell) mache, dann wird vor Aufruf der Praesentation abgefragt, ob die Verknuepfungen aktualisiert werden sollen. Kann ich diese Abfrage ueber ein Makro beantworten lassen? In Impress ist das Erstellen eines Makros via Recorder wohl nicht moeglich, oder doch?

Hier mein bisheriges Makro...:


sub Praesi_aufrufen
Dim Doc As Object
Dim Url As String
dim document as object
dim dispatcher as object
Dim Dummy()
Dim Presentation As Object
Dim mytime as date
Url = "file:///E:/meine_Praesentation.odp"
Doc = StarDesktop.loadComponentFromURL(Url, "_blank", 0, Dummy())
Doc = StarDesktop.CurrentComponent
Presentation = Doc.Presentation
mytime = timeserial(21, 00, 00)
Presentation.start()
Do While time = mytime
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:UpdateAllLinks", "", 0, Array())
Loop
end sub

mfg, Uwe