Hallo Robert,
der folgende Quellcode funktioniert.
Sub Main
oDoc = ThisComponent
oSheet = oDoc.Sheets.getByName("Tabelle1")
oDrawpage = oSheet.Drawpage
oForm = oDrawpage.Forms.GetByName ("Standard")
Dlg = oDoc.GetCurrentController ()
i = 1
WHILE i < 5
'oOption = oForm.GetByName ("CheckBox" & CStr(i))
cb = "CheckBox" & i
oOption = oForm.GetByName(cb)
Ctrl = Dlg.GetControl (oOption)
Ctrl.Model.Enabled = True
i = i + 1
WEND
End Sub
Getestet unter Windows XP Professional und OOo2.3.1.
Gruß
Hellmuth
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
