Ich versuche mich gerade an Schaltflächen. Per Kontrollfeld möchte ich das aktuelle Datum in Zelle A1 schreiben. Ich zeichne ein Makro auf: Wähle Zelle A1 und drücke die Taste F3, um das aktuelle Datum einzutragen. Wenn ich das Makro ausführe wird zwar die Zelle A1 ausgewählt, aber das Datum nicht eingetragen. Woran liegt das? Hier der Makro Code
Code: Alles auswählen
REM ***** BASIC *****
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 ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$A$1"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
rem ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:InsertCurrentDate", "", 0, Array())
end sub
Suwo