OpenOffice.org BASIC Guide - OpenOffice.org wiki

The Structure of Drawings
In Example 1, the page is accessed by its number (counting begins at 0). In the second example, the page is
accessed by its name and the getByName method.
Properties of a page
The preceding call returns a page object that supports the com.sun.star.drawing.DrawPage service. The
service recognizes the following properties:
BorderLeft (Long)
left-hand border in hundredths of a millimeter
BorderRight (Long)
right-hand border in hundredths of a millimeter
BorderTop (Long)
top border in hundredths of a millimeter
BorderBottom (Long)
bottom border in hundredths of a millimeter
Width (Long)
page width in hundredths of a millimeter
Height (Long)
page height in hundredths of a millimeter
Number (Short)
number of pages (numbering begins at 1), read-only
Orientation (Enum)
page orientation (in accordance with com.sun.star.view.PaperOrientation enumeration)
If these settings are changed, then all of the pages in the document are affected.
The following example sets the page size of a drawing document which has just been opened to 20 x 20
centimeters with a page margin of 0.5 centimeters:
Dim Doc As Object
Dim Page As Object
Doc = ThisComponent
Page = Doc.DrawPages(0)
Page.BorderLeft = 500
Page.BorderRight = 500
Page.BorderTop = 500
Page.BorderBottom = 500
Page.Width = 20000
Page.Height = 20000
Renaming Pages
Warning – If a new page is inserted in a drawing document of several pages, all subsequent pages which have
not been renamed will automatically see their default name change, e.g. Slide 3 will be changed into Slide 4, etc.
This automatic renaming works also in reverse when a page is deleted.
The only way to have a fixed page name is to rename the page, by the user interface or by programming.
A page provides methods getName and setName to read and modify its name. Basic can handle both methods
like a property Name. Here we rename the first page of the drawing document.
Dim Doc As Object
Dim Page As Object
112 OpenOffice.org 3.2 BASIC Guide · March 2010