OpenOffice.org BASIC Guide - OpenOffice.org wiki

The Structure of Drawings
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
This code inserts a drawing element in a page and then adds text to the top left corner of the drawing object using
the TextVerticalAdjust and TextHorizontalAdjust properties. The minimum distance between the text
edge of the drawing object is set to three millimeters.
Shadow Properties
You can add a shadow to most drawing objects with the com.sun.star.drawing.ShadowProperties service. The
properties of this service are:
Shadow (Boolean)
activates the shadow
ShadowColor (Long)
shadow color
ShadowTransparence (Short)
transparency of the shadow
ShadowXDistance (Long)
vertical distance of the shadow from the drawing object in hundredths of a millimeter
ShadowYDistance (Long)
horizontal distance of the shadow from the drawing object in hundredths of a millimeter
The following example creates a rectangle with a shadow that is vertically and horizontally offset from the
rectangle by 2 millimeters. The shadow is rendered in dark gray with 50 percent transparency.
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 = ThisComponent
Page = Doc.DrawPages(0)
RectangleShape = Doc.createInstance("com.sun.star.drawing.RectangleShape")
RectangleShape.Size = Size
RectangleShape.Position = Point
RectangleShape.Shadow = True
RectangleShape.ShadowColor = RGB(192,192,192)
RectangleShape.ShadowTransparence = 50
RectangleShape.ShadowXDistance = 200
RectangleShape.ShadowYDistance = 200
Page.add(RectangleShape)
120 OpenOffice.org 3.2 BASIC Guide · March 2010