Hola Ariel
Gracias nuevamente por tu pronta y gentil colaboración, efectivamente la
solución indicada es en la que no se usan macros.
Seguiré tu consejo de seguir estudiando y poder alcanzar una comprensión mas
amplia del api de tan magnifica suite.
El día 15/12/07, Ariel Constenla-Haile <[EMAIL PROTECTED]>
escribió:
>
> Hola Mauricio,
>
> Mauricio Alejandro Moreno Castro escribió:
> > Hola Ariel
> >
> > Gracias por la info super !!
> >
> > está es la macro que utilizo
> >
> > Sub CheckRadio
> >
> > ' Creacion de objeto para manejo del control, los formularios y el
> > formulario de la pagina activa
> > Dim Control,oForms,oForm As Object
> > ' Obtencio de los formularios del documento
> > oForms = ThisComponent.CurrentController.getActiveSheet.DrawPage.Forms
> > ' Obtencion del formulario para la pagina especifica
> > oForm = oForms.getByName("WW-Standard")
> > 'obtencion del control
> > Control = oForm.getByName("OptionButton")
> > 'String temp = Control.StringItemList(Control.SelectedItems (0))
> >
> > Dim i as integer
> >
> > Dim oHoja As Object
> > Dim oCell As Object
> >
> > For i =1 to oForm.Count
> >
> > if oForm.ControlModels(i-1).State = 1 then
> > oHoja = ThisComponent.CurrentController.getActiveSheet
> > oCell
> > =ThisComponent.CurrentController.getActiveSheet.getCellByPosition(6,10)
> > oCell.setFormula(i)
> > 'MsgBox i
> > End if
> > Next
> > End Sub
> >
> >
> > Anexo te envió el archivo a tu correo
>
> EL archivo no tiene ninguna macro asignada a los controles! Así que no
> puedo darme una idea de para qué empleas las macros!
>
>
> En principio, debes pensar si lo que deseas realizar se puede lograr SIN
> macros: puedes vincular una celda a un control, y asignarle un valor de
> referencia, luego realizar cálculos tomando ese valor. TODO eso es
> posible SIN emplear macros.
>
>
> Si empleas macros, no es necesario emplear un bucle para obtener el
> control seleccionado: al asignar una macro a un evento, cuando tu macro
> es invocada recibes un objeto de evento (EventObject), que te brinda
> determinada información, dependiendo del tipo de interfaz.
>
> Para "campos de opción" debes elegir el evento "Estado modificado"
> (según la pestaña "Acontecimientos" de la ventana "Propiedades").
>
> Debes tener en cuenta:
>
> * agrupar los "campos de opción" dándoles el mismo nombre a todos
> * asignar la misma macro al mismo evento en todos los controles
> RadioButton
>
> El siguiente ejemplo
>
>
> http://www.arielconstenlahaile.com.ar/ooo/docs/ARIEL_OOoBasic_RadioButton.ods
>
>
> muestra cómo emplear controles tipo RadioButton con y sin macros.
>
> Si bien la macro está bastante comentada, NO reemplaza el estudio: ¡a
> estudiar!
>
>
> Saludos
> Ariel.
>
>
> > gracias
> >
> > Salu2
> >
> > Mauricio
> >
> > El día 13/12/07, Ariel Constenla-Haile
> > <[EMAIL PROTECTED]
> > <mailto:[EMAIL PROTECTED]>> escribió:
> > > Hola Mauricio,
> > >
> > > Mauricio Alejandro Moreno Castro escribió:
> > > > Buen día a todos
> > > >
> > > > Poseo un inconveniente en un formulario con 4 radio buttons el
> cual de
> > > > pendiendo de el RB seleccionado deseo que actualize una celda, para
> > tal
> > > > efecto escribi una macro la cual asocio al evento de recepción del
> > foco y se
> > > > queda en un bucle infinito que podra ser??
> > >
> > > debería leer tu código, para poder emitir una opinión.
> > > En principio, el evento no es el indicado.
> > >
> > > > Existe alguna manera de controlar el evento o crear un listener
> estilo
> > > > Java???
> > >
> > > lee estos mensajes (y la bibliografía citada!):
> > > http://es.openoffice.org/servlets/ReadMsg?list=users&msgNo=5851
> > <http://es.openoffice.org/servlets/ReadMsg?list=users&msgNo=5851>
> > > http://es.openoffice.org/servlets/ReadMsg?list=users&msgNo=5855
> > <http://es.openoffice.org/servlets/ReadMsg?list=users&msgNo=5855>
> > >
> > >
> > > > Gracias a todos
> > > >
> > > > Mauricio Moreno
> > > > Feliz Navidad Prospero Año 2008
> > >
> > > Saludos,
> > > Ariel.
> > >
> > >
> > > --
> > > Ariel Constenla-Haile
> > > La Plata, Argentina
> > >
> > > [EMAIL PROTECTED] <mailto:
> [EMAIL PROTECTED]>
> > > [EMAIL PROTECTED]
> > <mailto:[EMAIL PROTECTED]>
> > >
> > > http://www.arielconstenlahaile.com.ar/ooo/
> > >
> > >
> > >
> > > "Aus der Kriegsschule des Lebens
> > > - Was mich nicht umbringt,
> > > macht mich härter."
> > > Nietzsche Götzendämmerung, Sprüche und Pfeile, 8.
> > >
> > > ---------------------------------------------------------------------
> > > To unsubscribe, e-mail: [EMAIL PROTECTED]
> > <mailto:[EMAIL PROTECTED]>
> > > For additional commands, e-mail: [EMAIL PROTECTED]
> > <mailto:[EMAIL PROTECTED]>
> > >
> > >
> >
> >
> >
> > --
> > Mauricio Alejandro Moreno Castro
> > Estudiante de Ing. de Sistemas
> > F.U.S.M
>
>
> --
> Ariel Constenla-Haile
> La Plata, Argentina
>
> [EMAIL PROTECTED]
> [EMAIL PROTECTED]
>
> http://www.arielconstenlahaile.com.ar/ooo/
>
>
>
> "Aus der Kriegsschule des Lebens
> - Was mich nicht umbringt,
> macht mich härter."
> Nietzsche Götzendämmerung, Sprüche und Pfeile, 8.
>
>
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>
--
Mauricio Alejandro Moreno Castro
Estudiante de Ing. de Sistemas
F.U.S.M
