[RESUELTO] Obtener datos de una lista desplegable

[stinorte]

Buenas tardes

Mi pregunta es si existe alguna forma de obtener los datos de una lista desplegable, para dependiendo de que opcion sea elegida hacer una cosa u otra

Al igual que si se puede leer una celda de una tabla, se podria leer los de una lista desplegable?

oTablas = ThisComponent.getTextTables()
oTabla = oTablas.getByName("NOMBRE DE LA TABLA")
oCelda = oTabla.getCellByName("CELDA")

Gracias por vuestra ayuda, un saludo a todos y feliz año nuevo.

[Neftali R]

Buenas tardes.

No sé cómo se hacen las listas desplegables en Writer, meons obtener los datos seleccionados de ella, pero en Calc, para obtener la información que hay en una celda sería así.

Código: Seleccionar todo

Sub temporal
Dim oCell As Object, sEleccion As String
oCell = ThisComponent.getCurrentController.getActiveSheet.getCellRangeByName("A1")
sEleccion = oCell.getString
End Sub

Si la lista desplegable está en un díalogo de Writer, entonces este tema seguramente te será útil.
https://forum.openoffice.org/es/forum/v ... 361#p68677

[stinorte]

Buenos dias
Gracias por tu respuesta Neftali R, pero no me vale en writer

[Neftali R]

Ahora pregunto, ¿cómo se hace la lista desplegable en Writer si no es con un diálogo o formulario? En tu primer mensaje decía algo de unas tablas, pero yo personalmente no he encontrado la opción de hacer una lista desplegable desde las tablas que se hacen en Writer. (A menos que sea un archivo Calc embebido, en ese caso, en cuyo caso sería casi lo mismo que con un archivo de Calc)

O no sé, tal vez hacer una lista desplegable en una tabla de Writer sea una opción que tiene OpenOffice que por alguna razón LibreOffice desechó y por eso no lo puedo hacer yo desde LibreOffice y tú sí puedes desde OpenOffice.

¿Podrías adjuntar un archivo cómo ejemplo? Para ver exactamente cómo es el archivo.

[stinorte]

Hola, os adjunto archivo para que veais mas graficamente lo que quiero decir

Gracias, un saludo.

[FJCC-ES]

Esta macro lee el valor elegido de la lista.

Código: Seleccionar todo

  oDrawPage = ThisComponent.getDrawPage()
  oForms = oDrawPage.getForms()
  oObj1 = oForms.getByName("Formulario")
  
  oObj2 = oObj1.getByName("Listado 1")
  sCurrentValue = oObj2.getCurrentValue()

[stinorte]

Buenos dias

Gracias por responder FJCC-ES
He intentado utilizar tu codigo, pero algo estoy haciendo mal ya que no soy capaz de hacerlo funcionar, ¿Me podrias hacer en el mismo archivo de ejemplo con el macro puesto?
Quizas este poniendo algo mal y no veo donde puede ser.

Gracias, un saludo.

[FJCC-ES]

Al seleccionar de la lista, la macro imprime el texto seleccionado.

[stinorte]

Buenos dias

Muchas gracias FJCC-ES, es justo lo que necesitaba.

Gracias por vuestra ayuda, un saludo.