OpenOffice.org BASIC Guide - OpenOffice.org wiki

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.RotateAngle = 3000
Page.add(RectangleShape)
Editing Drawing Objects
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
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.ShearAngle = 3000
Page.add(RectangleShape)
Searching and Replacing
As in text documents, drawing documents provide a function for searching and replace. This function is similar to
the one that is used in text documents as described in Text Documents. However, in drawing documents the
descriptor objects for searching and replacing are not created directly through the document object, but rather
through the associated character level. The following example outlines the replacement process within a drawing:
Dim Doc As Object
Dim Page As Object
Dim ReplaceDescriptor As Object
Dim I As Integer
Doc = ThisComponent
Page = Doc.DrawPages(0)
ReplaceDescriptor = Page.createReplaceDescriptor()
ReplaceDescriptor.SearchString = "is"
ReplaceDescriptor.ReplaceString = "was"
For I = 0 to Doc.DrawPages.Count - 1
Page = Doc.DrawPages(I)
Page.ReplaceAll(ReplaceDescriptor)
Next I
This code uses the first page of the document to create a ReplaceDescriptor and then applies this descriptor
in a loop to all of the pages in the drawing document.
Chapter 8 · Drawings and Presentations 127