Code: Select all
ControlShape = Doc.createInstance("com.sun.star.drawing.ControlShape")
For i=1 To 10
Cell = SheetErr.getCellByPosition(0, i)
ControlShape.setPosition(Cell.Position)
ControlShape.setSize(Cell.Size)
ButtonModel = CreateUnoService("com.sun.star.form.component.RadioButton")
ButtonModel.Name = CStr(i)
ButtonModel.Label = CStr(i)
ControlShape.setControl(ButtonModel)
DrawPage.add(ControlShape)
ControlShape.Anchor = Cell
Next
How can I make the grouping of these radiobuttons?
Is this collection needed to be made as:
ControlShapes = createUnoService("com.sun.star.drawing.ShapeCollection") ?