Textrahmen per Makro einfügen

Antwort erstellen


BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet

Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Textrahmen per Makro einfügen

Re: Textrahmen per Makro einfügen

von komma4 » Do, 08.11.2012 16:52

lorbass hat geschrieben:Ich fürchte, das kann nicht gut gehen.
Ich bin sicher, dass kann nicht gut gehen 8)

Re: Textrahmen per Makro einfügen

von lorbass » Do, 08.11.2012 16:02

Ketchup04 hat geschrieben:Diesen Code habe ich von der Dannenhöfer Seite.
Dort finde ich ihn im Kapitel 8. Text -Writer. Du willst ihn aber in einem Calc-Dokument ablaufen lassen. Ich fürchte, das kann nicht gut gehen.

Gruß
lorbass

Textrahmen per Makro einfügen

von Ketchup04 » 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...

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)
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.

Nach oben