Makroaufzeichnung in Calc
Verfasst: Sa 2. Mai 2015, 13:30
Hallo,
ich bin etwas irritiert bezüglich dem Aufzeichnen von Makros. Ich habe eine Tabelle, die einige Spalten hat. In diese wiederum sollen händisch Daten eingetragen werden, so ca. 500 Datensätze. Dazu wollte ich die Calc-Funktion Daten-> Formular nutzen, weil das die Eingabe doch ein bisschen einfacher gestaltet (nicht für mich, sondern für diejenigen, die das dann dort eintragen sollen, und die sind in der Regel nicht so versiert im Umgang mit Computern).
Um das direkt über einen Button zu aufzurufen, habe ich ein Makro aufgezeichnet. Zuerst markiert man ja den Bereich, der später vom Formular abgedeckt sein muss. Das klappt noch ohne weiteres. Wenn ich dann aber auf den Menüpunkt Daten -> Formular gehe, wird das nicht mehr im Makro mit aufgezeichnet.
Ist das denn grundsätzlich so, dass diese Funktion von der Makroaufzeichnung nicht erfasst wird? Kann mir jemand sagen, wie ich auf diesen Menüpunkt in StarBasic zugreife? Kann man diese Funktion überhaupt über ein Makro aufrufen?
ich bin etwas irritiert bezüglich dem Aufzeichnen von Makros. Ich habe eine Tabelle, die einige Spalten hat. In diese wiederum sollen händisch Daten eingetragen werden, so ca. 500 Datensätze. Dazu wollte ich die Calc-Funktion Daten-> Formular nutzen, weil das die Eingabe doch ein bisschen einfacher gestaltet (nicht für mich, sondern für diejenigen, die das dann dort eintragen sollen, und die sind in der Regel nicht so versiert im Umgang mit Computern).
Um das direkt über einen Button zu aufzurufen, habe ich ein Makro aufgezeichnet. Zuerst markiert man ja den Bereich, der später vom Formular abgedeckt sein muss. Das klappt noch ohne weiteres. Wenn ich dann aber auf den Menüpunkt Daten -> Formular gehe, wird das nicht mehr im Makro mit aufgezeichnet.
Code: Alles auswählen
sub Daten_eingeben
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 ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Nr"
args1(0).Value = 2
dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args1())
rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$A$1:$J$500"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())
end sub