Textrahmen per Makro einfügen
Verfasst: Do, 08.11.2012 14:14
Hallöchen.
Ich bin seit einigen Tagen auf der Suche nach dem richtigen Makro, allerdings finde ich nicht wirklich das, was ich suche.
Ich habe in OpenOffice Calc eine Datei erstellt mit meinem Inhalt. Ich möchte durch einen Button/Schaltfläche ein Textfeld/Textrahmen/Textbox einblenden und durch den selbigen Button wieder ausblenden.
Ich bin absoluter Neuling in OO, bitte habt Geduld...
Diesen Code habe ich von der Dannenhöfer Seite. Allerdings funktioniert er nicht. Er meldet mir bei der Zeile "oCursor = oText.createTextCursor()" - BASIC Laufzeitfehler - Eigenschaft oder Methode nicht gefunden: createTextCursor.
Könnt ihr mir irgendwie helfen? :/
Gruß
Edit: In dem Textrahmen soll natürlich ein bestimmter Text stehen.
Ich bin seit einigen Tagen auf der Suche nach dem richtigen Makro, allerdings finde ich nicht wirklich das, was ich suche.
Ich habe in OpenOffice Calc eine Datei erstellt mit meinem Inhalt. Ich möchte durch einen Button/Schaltfläche ein Textfeld/Textrahmen/Textbox einblenden und durch den selbigen Button wieder ausblenden.
Ich bin absoluter Neuling in OO, bitte habt Geduld...
Code: Alles auswählen
odocument=thiscomponent
oText = oDocument.Text
oCursor = oText.createTextCursor()
'Den neune Textrahmen als Objekt erstellen.
oFrame = oDocument.createInstance("com.sun.star.text.TextFrame")
'Weite und Höhe des Rahmen festlegen
oframe.width = 2000
oframe.height = 2000
'Position des Rahmen festlegen in 100/mm
oframe.HoriOrientPosition =2000
oFrame.VertOrientPosition = 2000
'Name festlegen
oframe.setname("RahmenName")
'Positionsvorgaben ausschalten ( siehe unten)
oFrame.HoriOrient = com.sun.star.text.HoriOrientation.NONE
oFrame.VertOrient = com.sun.star.text.VertOrientation.NONE
'Rahmen einfügen
oText.insertTextContent(oCursor, oFrame, FALSE)Könnt ihr mir irgendwie helfen? :/
Gruß
Edit: In dem Textrahmen soll natürlich ein bestimmter Text stehen.
