Beschriftungsposition nicht frei wählbar

[aeugler]

Hallo,

ich habe folgendes Problem: Ich will in ein Textdokument Tabellen aus Calc einbinden. Das funktioniert auch wunderbar über Copy&Paste, also OLE. Jetzt hätte ich gerne die Beschriftung, wie das bei Tabellen üblich ist, über der Tabelle. Im Menü Beschriftung setze ich die Kategorie auf Tabelle, 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?
Die gleiche Frage wurde von jean-luc-picard unter viewtopic.php?p=1504&highlight=#1504 schon einmal gestellt. Leider hat niemand geantwortet.
Freue mich über Hilfe.

Gruß Aeugler

[Stephan]

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

[aeugler]

Hi,

vielen Dank für die Antworten. Das Makro tut das gewünschte.

Grüße Aeugler