von Stephan » Do, 11.11.2004 08:33
In dem Auswahlfeld Position im Menü Beschriftung ist allerdings die Position "unterhalb" vorausgewählt und es läßt sich auch nichts anderes einstellen. Das muss sich doch irgendwie machen lassen, oder?
Ja, kannst Du als Makro aufzeichnen, markiere die Tabelle (markiere NICHT den Rahmen der die Tabelle und Beschriftung enthält) und starte das folgende Makro:
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:SetAnchorToChar", "", 0, Array())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Cut", "", 0, Array())
rem ----------------------------------------------------------------------
dispatcher1 = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher1.executeDispatch(document, ".uno:GoToEndOfLine", "", 0, Array())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())
end sub
Gruß
Stephan
[quote]In dem Auswahlfeld Position im Menü Beschriftung ist allerdings die Position "unterhalb" vorausgewählt und es läßt sich auch nichts anderes einstellen. Das muss sich doch irgendwie machen lassen, oder?[/quote]
Ja, kannst Du als Makro aufzeichnen, markiere die Tabelle (markiere NICHT den Rahmen der die Tabelle und Beschriftung enthält) und starte das folgende Makro:
[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:SetAnchorToChar", "", 0, Array())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Cut", "", 0, Array())
rem ----------------------------------------------------------------------
dispatcher1 = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher1.executeDispatch(document, ".uno:GoToEndOfLine", "", 0, Array())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())
end sub[/code]
Gruß
Stephan