Hallo Robert,
hab mir mal Deinen Makroansatz vorgenommen
> document = ThisComponent
> odrawpage=document.drawpage
> oform=odrawpage.forms.getbyName("Formularname")
> ooption1=oform.getByName("Buttonname1")
> ooption2=oform.getByName("Buttonname2")
> DocCrl = ThisComponent.getCurrentController()
> CtlView1 = DocCrl.GetControl(ooption1)
> CtlView2 = DocCrl.GetControl(ooption2)
und so für mich umgebastelt:
Dim oForm as Object, oDrawpage as Object, oOption1 as Object, oOption2 as
Object
oDoc = ThisComponent
oDrawpage = oDoc.Drawpage
oForm = oDrawpage.Forms.GetByName ("Standard")
oOption1 = oFrame.GetByName ("CheckBox15")
oOption2 = oFrame.GetByName ("CheckBox37")
DocCtrl = thisComponent.GetCurrentController ()
CtrlView1 = DocCtrl.GetControl (oOption1)
CtrlView2 = DocCtrl.Getcontrol (oOption2)
CtrlView1.SetState (false)
CtrlView2.SetState (false)
Der Basic-Laufzeitfehler wird noch genauer erläutert: Eigenschaft oder
Methode nicht gefunden.
Ich will, wenn eine bestimmte OptionsBox aktiviert ist, zwei andere
OptionsBoxen deaktiveren. Doch ob es überhaupt so geht, kann ich nicht
prüfen,weil ja das Makro bereits in der zweiten Zeile abbricht. :-(
Weißt Du warum?
Grüße
Kornelia
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
