OpenOffice.info

Danke, Michael,
das ersparte mir einige Tipparbeit ...


@gary: aufgezeichneter [i]dispatcher [/i]Code lässt sich schwer anpassen, da (zumindest bei mir unbekannt) die möglichen Parameter der[i] UNO calls[/i] nicht dokumentiert sind. Versuche Dich mal an Michaels Beispiel...

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
'Rahmentyp festlegen
Dim myLine As New com.sun.star.table.BorderLine
myLine.Color=RGB (255,0,0)
myLine.InnerLineWidth=0
myLine.OuterLineWidth=100
oFrame.Bottomborder=Myline
oFrame.Topborder=Myline
oFrame.Leftborder=Myline
oFrame.Rightborder=Myline
'Rahmen einfügen
oText.insertTextContent(oCursor, oFrame, FALSE)  

Hallo,

eigentlich kann man einen Rahmen als neues Objekt in den Texteinfügen und dabei alle Parameter setzen.

[code]
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
'Rahmentyp festlegen
Dim myLine As New com.sun.star.table.BorderLine
myLine.Color=RGB (255,0,0)
myLine.InnerLineWidth=0
myLine.OuterLineWidth=100
oFrame.Bottomborder=Myline
oFrame.Topborder=Myline
oFrame.Leftborder=Myline
oFrame.Rightborder=Myline
'Rahmen einfügen
oText.insertTextContent(oCursor, oFrame, FALSE)
[/code]

Wenn man jetzt "xray oFrame" verwendet sieht man die Eigenschaften des Rahmenobjektes mit xray.

mfg
Michael

[quote="gary"]das habe ich soweit selbst geschafft.[/quote]Zeigen!

Du kennst [url=http://ooomacros.org/dev.php#101416]XRay[/url], um die Eigenschaften und Methoden Deiner Objekte zu untersuchen?