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

Editing Drawing Objects 177
Rotating and Shearing Drawing Objects
All of the drawing objects that are described in the previous sections can also be rotated
and sheared using the
service.
com.sun.star.drawing.RotationDescriptor
The service provides the following properties:
RotateAngle (Long)
rotary angle in hundredths of a degree
ShearAngle (Long)
shear angle in hundredths of a degree
The following example creates a rectangle and rotates it by 30 degrees using the
RotateAngle property:
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
RectangleShape.RotateAngle = 3000
Page.add(RectangleShape)
The next example creates the same rectangle as in the previous example, but instead
shears it through 30 degrees using the ShearAngle property.
Dim Doc As Object
Dim Page As Object
Dim RectangleShape As Object