OpenOffice.org BASIC Guide.pdf - OpenOffice.org wiki

More Than Just Text 114
service, which is also supported by each TextFrame service. The central properties are:
BackColor (Long)
background color of the text frame.
BottomMargin (Long)
bottom margin in 100ths of a millimeter.
LeftMargin (Long)
left margin in 100ths of a millimeter.
RightMargin (Long)
right margin in 100ths of a millimeter.
TopMargin (Long)
top margin in 100ths of a millimeter.
Height (Long)
height of text frame in 100ths of a millimeter.
Width (Long)
width of text frame in 100ths of a millimeter.
HoriOrient (const)
horizontal orientation of text frame (in accordance with
com.sun.star.text.HoriOrientation
).
VertOrient (const)
vertical orientation of text frame (in accordance with
com.sun.star.text.VertOrientation
).
The following example creates a text frame using the properties described previously:
Dim Doc As Object
Dim TextTables As Object
Dim Cursor As Object
Dim Frame As Object
Doc = StarDesktop.CurrentComponent
Cursor = Doc.Text.createTextCursor()
Cursor.gotoNextWord(False)
Frame = Doc.createInstance("com.sun.star.text.TextFrame")
Frame.Width = 3000
Frame.Height = 1000
Frame.AnchorType = com.sun.star.text.TextContentAnchorType.AS_CHARACTER
Frame.TopMargin = 0
Frame.BottomMargin = 0