OpenOffice.info

Hallo Stephan,

es funktioniert genau so wie ich es mir vorgestellt hatten. DANKE!

Danke und Gruß Proximus

sub Main
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Calculate", "", 0, Array())
end sub

[quote]abgesehen davon das er bei der Aufzeichnung leider nur eine leere Funktion

Sub berechnen

End Sub

erzeugt, weiss ich leider auch nicht wie man eine Schaltfäche einfügt und der dann eine Funktionen zuweisst.
Kannst du meinem Wissen da auf die Sprünge helfen? [/quote]


Also ich kann ohne Probleme folgendes Makro aufzeichnen:

[code]sub Main
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Calculate", "", 0, Array())
end sub[/code]

Schaltfläche:
-linke Bildschirmseite, langer Klick auf Formularfunktionen
-erscheineden Dialog an Titelzeile auf Arbeitbereich ziehen und mit der dort vorhandenen Schalfläche 'Entwurfsmodus an/aus' den Entwurfsmodus einschalten
-mit der Schaltfäche 'Schaltfläche' eine Schaltfläche zeichnen und ausrichten wie gewünscht
-Kontextmenü dieser Schaltfläche und 'Kontrollfeld...'
-Register Ereignisse
-dem Ereignis 'beim Auslösen' das Makro zuordnen
-bestätigen und schließen
-Entwurfsmodus ausschalten und Dialogfenster schließen

nun Schaltfläche klicken und Makro startet

Gruß
Stephan

Hallo Stephan,

abgesehen davon das er bei der Aufzeichnung leider nur eine leere Funktion

Sub berechnen

End Sub

erzeugt, weiss ich leider auch nicht wie man eine Schaltfäche einfügt und der dann eine Funktionen zuweisst.
Kannst du meinem Wissen da auf die Sprünge helfen?

Danke und Gruß Proximus

Du kannst Dir Extras>Zellinhalte>Neu berechnen mit dem Rekorder aufzeichnen und das Makro einer Schaltfläche zuordnen.

Stephan

Hallo,

ich wollte mal fragen ob Ihr eine Möglichkeit kennt mit einem Button oder einer Funktion die man aufruft oder so was das ganze Projekt, spich alle Tabellen neu zu berechnen. Also man gib alle Daten schön ein und klickt dann auf einen Button "OK" und alles wird neu berechnet.

Danke und Gruß
Proximus