¿Como centrar verticalmente todos los textbox y label de un formulario? (VBA)
A tod@s!!!
Teniendo en cuenta que el formulario esta en Access. (VBA)
Quiero que al cargar un formulario, vaya por todos los controles textbox y label (en esto no tengo problema)... Y que los centre verticalmente (¿cómo hacerlo?).
1 respuesta
Supongo que te refieres al texto
Private Sub Form_Open(Cancel As Integer)
For Each Control In Form.Controls
If Control.ControlType = acTextBox Or Control.ControlType = acLabel Then
Control.TextAlign = 2
End If
Next
End Sub
Bien gracias, esto lo que hace es alinear horizontalmente, pero lo que quiero es alinearlo verticalmente.
No entiendo la pregunta. Alinear verticalmente ¿el qué?. ¿El propio cuadro de texto o el texto?. Si tengo un formulario como en la imagen
y pulso el botón
Ha alineado las etiquetas verticalmente. el código del botón es
For Each Control In Form.Controls
If Control.ControlType = acLabel Then
Control.Left = 0.603 * 570
End If
Next
Se haría lo mismo para los cuadros de texto
Fíjate en los campos rellenados (en blanco), esos quiero centrar verticalmente.
Realmente son textbox...¿cómo hacerlo?... Gracias
Chico, me rindo, sigo sin saber que hay que alinear. Si tengo un formulario
Y pulso el botón
El código del botón es
For Each Control In Form.Controls
If Control.ControlType = acTextBox Then
Control.TextAlign = 2
End If
Next
