Hi,
the following basic script will insert a form control into a spreadsheet.
but it is not possible to print the form control (have a look at the print
preview)
printing of the form control will only work after a save & relaod ...
any hints whats wrong ?
no problems so far with oo 2.0 ...
i should have a bugfix for this ...
regards
Oliver
--
Option Explicit
Sub CreateControl()
Dim oDocument as Object
Dim oView as Object
Dim oDrawPage as Object
Dim oControlModel as Object
Dim oControlShape as Object
Dim oSize as New com.sun.star.awt.Size
Dim oPosition as New com.sun.star.awt.Point
oDocument = StarDesktop.getCurrentComponent
oView = oDocument.CurrentController
oDrawPage = oView.getActiveSheet.DrawPage
oControlShape =
oDocument.createInstance("com.sun.star.drawing.ControlShape")
oSize.Height = 1000
oSize.Width = 3000
oPosition.X = 2000
oPosition.Y = 3000
oControlShape.setSize(oSize)
oControlShape.SizeProtect = True
oControlShape.setPosition(oPosition)
oControlShape.MoveProtect = True
oControlModel =
createUNOService("com.sun.star.form.component.CommandButton")
oControlModel.Name = "My Control"
oControlModel.Label = "Test"
oControlModel.Printable = True
oControlModel.Enabled = True
oControlShape.setControl(oControlModel)
oDrawPage.add(oControlShape)
End Sub
--
Highspeed-Freiheit. Bei GMX supergünstig, z.B. GMX DSL_Cityflat,
DSL-Flatrate für nur 4,99 Euro/Monat* http://www.gmx.net/de/go/dsl
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
