Unter Calc funktioniert ja die Aufzeichnung von Makros.
sub TextUntenEinfueg
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(5) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Flags"
args1(0).Value = "SVD"
args1(1).Name = "FormulaCommand"
args1(1).Value = 0
args1(2).Name = "SkipEmptyCells"
args1(2).Value = false
args1(3).Name = "Transpose"
args1(3).Value = false
args1(4).Name = "AsLink"
args1(4).Value = false
args1(5).Name = "MoveMode"
args1(5).Value = 0
dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0, args1())
end sub
Das kann jetzt natürlich noch gekürzt werden, bringt aber unter Umgehung des Dialogs direkt den gewünschten Erfolg.
Über Extras → Anpassen
kannst Du jetzt die Kategorie “Makros” und dort Dein Makro auswählen. Dann kannst Du das in eine Symbolleiste packen.
Wenn Du den Reiter Tastatur
auswählst kannst Du ebenfalls auf das Makro zugreifen - und ihm ein Tastaturkürzel zuweisen.
Zwei Hinweise noch: Das Tastaturkürzel fehlt in der deutschsprachigen Version. In Englisch ist es da. Die Standardeinstellung wird anscheinend mit dem Makro irgendwie beeinflusst. Bei mir ist das jetzt beim Öffnen des Dialogs automatisch auf “Unten” voreingestellt.