Foro Excel

He creado un control-cuadro de texto.
Le he asignado método multilínea (True) y barra de desplazamiento vertical.
Lógicamente le he dado una altura razonable, que no siempre permite ver todos los items que contiene.
El caso es que, a pesar de tener asignada la barra de desplazamiento vertical, ésta sólo se ve si se pincha expresamente en dicho cuadro de texto.
Si no se pincha ofrece sólo la visión de los items que caben en el tamaño de ese cuadro de texto, pero no los demás, lo cual es normal; pero dado que no se ve aún la barra de desplazamiento, se pudiera suponer que no hay mas items. Solo pinchando en el cuadro de texto aparece la barra de desplazamiento, que sugiere que hay mas items de los que se ven.
¿Puede obligarse a ese tipo de control a que desde principio visualice la barra de desplazamiento?...
Muchas gracias por vuestros comentarios.

hola, !

necesitas establecer su orden de tabulacion al primero de los controles (0), o activar el textbox para mostrar sus barras de desplazamiento (p.e.)

Código: Seleccionar todo

Private Sub UserForm_Initialize()
  TextBox1.SetFocus
End Sub

saludos,
hector.

Héctor Miguel escribió:hola, !

necesitas establecer su orden de tabulacion al primero de los controles (0), o activar el textbox para mostrar sus barras de desplazamiento (p.e.)

Código: Seleccionar todo

Private Sub UserForm_Initialize()
  TextBox1.SetFocus
End Sub

saludos,
hector.

El caso es que no me permite el SetFocus al control cuadro de texto.

hola, !

...El caso es que no me permite el SetFocus al control cuadro de texto.

recibes algun mensaje de erro ? (que dice exactamente ?, numero y texto)

en via de mientras, comprueba/corrige que el textbox tenga establecida su propiedad "Enabled" en true (?)

saludos,
hector.

Tienes razón, no he concretado mucho.
Si tecleo TextBox1.setfocus a medida que lo tecleo ya me doy cuenta de que, a partir del punto, lo que añado ("setfocus") no es ninguna de las opciones de la lista desplegable que se abre.
Si de todos modos introduzco tal código, cuando se ejecuta sale el siguiente mensaje :
"Se ha producido el error '438' en tiempo de ejecución: el objeto no admite esta propiedad o método".
El objeto tiene "True" en la propiedad "Enabled".
Muchas gracias.

hola, !

Si tecleo TextBox1.setfocus a medida que lo tecleo ya me doy cuenta de que, a partir del punto, lo que añado ("setfocus") no es ninguna de las opciones...

comprueba desde el editor de vba, en (menu) herramientas > referencias... si alguna aparece como FALTA:xxx (o MISSING:xxx)

saludos,
hector.

Héctor Miguel escribió:(...)
comprueba desde el editor de vba, en (menu) herramientas > referencias... si alguna aparece como FALTA:xxx (o MISSING:xxx)
(...)
hector.

Están activados :
Visual Basic For Aplications
Microsoft Excel 12.0 Object Library
OLE Automation
Microsoft Office 12.0 Object Library
Microsoft Forms 2.0 Object Library

En ninguno de ellos hay aviso de "FALTA" (o MISSING).

hola, !

Están activados :
Visual Basic For Aplications
Microsoft Excel 12.0 Object Library
OLE Automation
Microsoft Office 12.0 Object Library
Microsoft Forms 2.0 Object Library

En ninguno de ellos hay aviso de "FALTA" (o MISSING).

no logro reproducir el error que comentas y, si no se trata de librerias en conflicto (?)...

- despues de introducir el punto (TextBox1.), cuales son las opciones que puedes elegir ?
- el procedimiento lo pones en el modulo de codigo del formulario ? (o en un modulo de codigo estandar ?)

comenta (si encuentras) algun detalle mas descriptivo
saludos,
hector.

Después de teclear "textbox1." las opciones que puedo elegir son muchísimas. Pero no aparece Setfocus.
Inmediatamente después de "sendtoBack" aparece "shadow" (entre ambas debería estar setfocus).
El procedimiento no lo pongo en un formulario sino en la propia hoja1 del libro.

hola, !

El procedimiento no lo pongo en un formulario sino en la propia hoja1 del libro

si el control esta incrustado en una hoja de calculo (y no en un formulario de usuario)... algunas de sus propiedades y su administracion son diferentes

prueba con el siguiente codigo en el modulo de "esa" hoja:

Código: Seleccionar todo

Private Sub Worksheet_Activate()
  TextBox1.Activate
End Sub

saludos,
hector.

Muchas gracias por tu paciencia.
Ahora sí que hemos llegado a aclarar lo que sucedía.
Tu propuesta me sirve.
Me falta un detallito para lograr mi propósito; después del "activate" deseo que el cursor regrese a donde estaba.
Lo he planteado así :
dondeestaahora = ActiveCell.Address (para no perder ubicación)
TextBox1.Activate (para ver barra vertical de desplazamiento, que es el tema de este hilo)
ActiveCell.Address = dondeestaahora (para que regrese a dónde estaba, ya que me es muy útil)

El caso es que "ActiveCell.Address = dondeestaahora" es una asignación no permitida; ¿cuál sería el mandato correcto? ...
Muchas gracias.

hola, !

... después del "activate" deseo que el cursor regrese a donde estaba.
Lo he planteado así :
dondeestaahora = ActiveCell.Address (para no perder ubicación)
TextBox1.Activate (para ver barra vertical de desplazamiento, que es el tema de este hilo)
ActiveCell.Address = dondeestaahora (para que regrese a dónde estaba, ya que me es muy útil)

El caso es que "ActiveCell.Address = dondeestaahora" es una asignación no permitida;
¿cuál sería el mandato correcto? ...

1) para volver a la celda activa, basta con pulsar {escape} (dicho en lenguaje vba): SendKeys "{esc}"
y/o cambiar la seleccion del cuadro, a la hoja y celda activa (dicho en lenguaje vba): ActiveCell.Select

2) considera que el control (textbox, incrustado en hoja de calculo) muestra barras de desplazamiento SOLO cuando esta "activo" (seleccionado)

saludos,
hector.

Muchas gracias por todo.
Asunto resuelto.