Hallo Robert,
hab mir Deine Makros angesehen und meines folgendermaßen geändert:
oDoc = ThisComponent
oSheet = oDoc.Sheets.getByName("Tabelle1")
oDrawpage = oSheet.Drawpage
oForm = oDrawpage.Forms.GetByName ("Standard")
Dlg = oDoc.GetCurrentController ()
i = 1
While i < 58
oOption = oForm.GetByName ("CheckBox" & CStr(i))
Ctrl = Dlg.GetControl (oOption)
Ctrl.Model.Enabled = True
i = i + 1
Wend
Und der Fehler: BASIC-Laufzeitfehler. Es ist eine Exception Typ:
com.sun.star.container.NoSuchElementException Message: hat sich
aufgeklärt -
Asche auf mein Haupt: Die Schleife war nicht durchgängig, soll heißen, es
fehlte eine (nee, sogar mehrere) CheckBoxen beim Durchlaufen der
Schleife. Armes Basic, hat sich so abgequält. ;-)
Nun brauche ich noch die Option Standardstatus: Nicht ausgewählt. Die
will ich beim Öffnen des Formulars setzen, denn ansonsten sind schon
einige Felder ausgewählt, bevor der Nutzer überhaupt etwas getan hat.
Welchen Befehl muss ich da nehmen?
Viele Grüße
Kornelia
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
