Hallo Kornelia,
> oDoc = ThisComponent
> oSheet = oDoc.Sheets.getByName("Tabelle1")
> oDrawpage = oSheet.Drawpage
> oForm = oDrawpage.Forms.GetByName ("Standard")
>
> Dlg = oDoc.GetCurrentController ()
> i = 1
> WHILE i < 34
Hier würde ich einen Test einbauen:
Name = "CheckBox" & CStr(i)
bzw.
Name = "CheckBox" + CStr(i) + ""
und das dann erst einmal über
msgbox Name
mir ansehen.
> oOption = oForm.GetByName ("CheckBox" & CStr(i))
> Ctrl = Dlg.GetControl (oOption)
> Ctrl.Model.Enabled = True
> i = i + 1
> WEND
>
Es muss ja wohl an der Namenszuweisung liegen - und irgendwie stört mich an
der Lösung, dass bereits Anführungsstriche innnerhalb der Namensbezeichnung
vorkommen.
In der Messagebox musst Du den eindeutigen Namen stehen haben. Dann kannst Du
einfach in
oOption = oForm.GetByName (Name)
mit diesem Eintrag die richtige Box suchen.
Gruß
Robert
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
