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

The Structure of Drawings 165
left-hand distance between drawing element and text in hundredths of a millimeter
TextRightDistance (Long)
right-hand distance between drawing element and text in hundredths of a millimeter
TextUpperDistance (Long)
upper distance between drawing element and text in hundredths of a millimeter
TextLowerDistance (Long)
lower distance between drawing element and text in hundredths of a millimeter
The following example demonstrates use of the named properties.
Dim Doc As Object
Dim Page As Object
Dim RectangleShape As Object
Dim Point As New com.sun.star.awt.Point
Dim Size As New com.sun.star.awt.Size
Point.x = 1000
Point.y = 1000
Size.Width = 10000
Size.Height = 10000
Doc = StarDesktop.CurrentComponent
Page = Doc.drawPages(0)
RectangleShape =
Doc.createInstance("com.sun.star.drawing.RectangleShape")
RectangleShape.Size = Size
RectangleShape.Position = Point
Page.add(RectangleShape)
RectangleShape.String = "This is a test" ' May only take place after
Page.add!
RectangleShape.TextVerticalAdjust =
com.sun.star.drawing.TextVerticalAdjust.TOP
RectangleShape.TextHorizontalAdjust =
com.sun.star.drawing.TextHorizontalAdjust.LEFT
RectangleShape.TextLeftDistance = 300
RectangleShape.TextRightDistance = 300
RectangleShape.TextUpperDistance = 300
RectangleShape.TextLowerDistance = 300