21.08.2013 Views

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

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

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

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

The Structure of Drawings 174<br />

AdjustContrast (Short)<br />

contrast as a percentage (negative values are also permitted)<br />

AdjustRed (Short)<br />

red value as a percentage (negative values are also permitted)<br />

AdjustGreen (Short)<br />

green value as a percentage (negative values are also permitted)<br />

AdjustBlue (Short)<br />

blue value as a percentage (negative values are also permitted)<br />

Gamma (Short)<br />

gamma value of a graphic<br />

Transparency (Short)<br />

transparency of a graphic as a percentage<br />

GraphicColorMode (enum)<br />

color mode, for example, standard, gray stages, black and white (default value in<br />

accordance with<br />

com.sun.star.drawing.ColorMode<br />

)<br />

The following example shows how to insert a page into a graphics object.Dim Doc As Object<br />

Dim Page As Object<br />

Dim GraphicObjectShape As Object<br />

Dim Point As New com.sun.star.awt.Point<br />

Dim Size As New com.sun.star.awt.Size<br />

Point.x = 1000 ' specifications, insignificant because latter<br />

Point.y = 1000<br />

Size.Width = 10000<br />

Size.Height = 10000<br />

coordinates are binding<br />

Doc = StarDesktop.CurrentComponent<br />

Page = Doc.drawPages(0)<br />

GraphicObjectShape =<br />

Doc.createInstance("com.sun.star.drawing.GraphicObjectShape")<br />

GraphicObjectShape.Size = Size<br />

GraphicObjectShape.Position = Point<br />

GraphicObjectShape.GraphicURL = "file:///c:/test.jpg"<br />

GraphicObjectShape.AdjustBlue = -50<br />

GraphicObjectShape.AdjustGreen = 5

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!