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
Mit Button ganze Projekt neu berechnen
Moderator: Moderatoren
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?
Also ich kann ohne Probleme folgendes Makro aufzeichnen:
Code: Alles auswählen
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
-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