OpenOffice.org BASIC Guide.pdf - OpenOffice.org wiki
OpenOffice.org BASIC Guide.pdf - OpenOffice.org wiki
OpenOffice.org BASIC Guide.pdf - OpenOffice.org wiki
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