Como alineo un textbox verticalmente?
Tengo un textbox vertical y necesito centrar el texto pero esta vertical el textbox
1 Respuesta
Respuesta de Julián González Cabarcos
1
Daniel, quiero hacer constar que de Excel no tengo ni idea, pero por si te sirve para algo el código
Si tengo un cuadro de texto donde escribo algo
Puedes ver que el cursor todavía está en el cuadro de texto Texto99. Cuando pulso Enter
El cuadro de texto de la derecha se llama Texto101. El código del evento Después de actualizar(aunque se podría poner en otro evento cualquiera, incluso en el evento al hacer clic de un botón) es
Private Sub Texto99_AfterUpdate() Dim i As Byte For i = 1 To Len([Texto99]) Dim s As String s = Mid([Texto99], i, 1) Texto101 = Texto101 + vbCrLf + "" & s & "" Next Texto105.SetFocus End Sub
Gracias, eso lo logro pero no lo alinea verticalente es decir al medio del textbox101
Tendrás que "jugar" con los márgenes en función de la longitud del texto.
