[Resuelto]Cambiar color de caracteres dentro de cua de texto

Discute sobre las herramientas de la base de datos
Responder
jjcastillo.7
Mensajes: 39
Registrado: Vie Sep 18, 2020 2:05 am

[Resuelto]Cambiar color de caracteres dentro de cua de texto

Mensaje por jjcastillo.7 »

Buenas, necesito ayuda para algunas cosas:
1. Una macro en la cual pulse un botón y los caracteres que estan dentro del cuadro de texto cambien de color, en mi caso quiero que tomen el color del fondo del cuadro de texto.

2.Como encuentro todos los procedimientos y métodos que pertenecen a un control y su descripción, intento aprender hacer macros.
Última edición por jjcastillo.7 el Dom Mar 07, 2021 8:31 pm, editado 2 veces en total.
OPENOFFICE Apache OpenOffice 4.1.7
FJCC-ES
Mensajes: 873
Registrado: Mié Mar 25, 2009 1:19 am
Ubicación: Colorado, USA

Re: Cambiar color de caracteres dentro de cuadro de texto

Mensaje por FJCC-ES »

1. Si un documento de Writer contiene un cuadro de texto con el nombre Text Box 1, esta macro cambia el color del texto al color del fondo del cuadro de texto o, si el fondo no tiene color, cambia el color del texto a blanco.

Código: Seleccionar todo

oDP = ThisComponent.DrawPage
oForms = oDP.getForms()
oForm = oForms.getByIndex(0)
oCuadroTexto = oForm.getByName("Text Box 1")
ColorFondo = oCuadroTexto.BackgroundColor
If Not IsEmpty(ColorFondo) Then
  oCuadroTexto.TextColor = ColorFondo
Else
  oCuadroTexto.TextColor = RGB(255,255,255)
End If
2. Uso MRI para ver las propiedades y métodos de los objectos en macros.
jjcastillo.7
Mensajes: 39
Registrado: Vie Sep 18, 2020 2:05 am

Re: Cambiar color de caracteres dentro de cuadro de texto

Mensaje por jjcastillo.7 »

Gracias tratare de adaptar la macro a Base.
OPENOFFICE Apache OpenOffice 4.1.7
jjcastillo.7
Mensajes: 39
Registrado: Vie Sep 18, 2020 2:05 am

[Resuelto]

Mensaje por jjcastillo.7 »

Gracias me funciono.
OPENOFFICE Apache OpenOffice 4.1.7
Responder