OpenOffice.org BASIC Guide - OpenOffice.org wiki

AdjustBlue (Short)
blue value as a percentage (negative values are also permitted)
Gamma (Short)
gamma value of a graphic
Transparency (Short)
transparency of a graphic as a percentage
GraphicColorMode (enum)
The Structure of Drawings
color mode, for example, standard, gray stages, black and white (default value in accordance with
com.sun.star.drawing.ColorMode)
The following example shows how to insert a page into a graphics object.
Dim Doc As Object
Dim Page As Object
Dim GraphicObjectShape As Object
Dim Point As New com.sun.star.awt.Point
Dim Size As New com.sun.star.awt.Size
Point.x = 1000 ' specifications, insignificant because latter
coordinates are binding
Point.y = 1000
Size.Width = 10000
Size.Height = 10000
Doc = ThisComponent
Page = Doc.DrawPages(0)
GraphicObjectShape = Doc.createInstance("com.sun.star.drawing.GraphicObjectShape")
GraphicObjectShape.Size = Size
GraphicObjectShape.Position = Point
GraphicObjectShape.GraphicURL = "file:///c:/test.jpg"
GraphicObjectShape.AdjustBlue = -50
GraphicObjectShape.AdjustGreen = 5
GraphicObjectShape.AdjustBlue = 10
GraphicObjectShape.AdjustContrast = 20
GraphicObjectShape.AdjustLuminance = 50
GraphicObjectShape.Transparency = 40
GraphicObjectShape.GraphicColorMode = com.sun.star.drawing.ColorMode.STANDARD
Page.add(GraphicObjectShape)
This code inserts the test.jpg graphic and adapts its appearance using the Adjust properties. In this example,
the graphics are depicted as 40 percent transparent with no other color conversions do not take place
(GraphicColorMode = STANDARD).
Editing Drawing Objects
Grouping Objects
In many situations, it is useful to group several individual drawing objects together so that they behave as a single
large object.
The following example combines two drawing objects:
Dim Doc As Object
Dim Page As Object
Dim Square As Object
Dim Circle As Object
Dim Shapes As Object
Dim Group As Object
Dim Point As New com.sun.star.awt.Point
Chapter 8 · Drawings and Presentations 125