¿Cómo centrar automáticamente una casilla de verificación dentro de una celda en Excel?
Al insertar Casilla de Verificación en celdas de Excel, es posible que observe que resulta difícil alinear todas las casillas de verificación de forma ordenada, tal como se muestra en la siguiente captura de pantalla. De hecho, puede mover todas las Casilla de Verificación al centro de la celda para mantenerlas ordenadas y alineadas. El método descrito en este artículo le ayudará.
Centrar automáticamente la casilla de verificación en la celda con código VBA
Centrar automáticamente la casilla de verificación en la celda con código VBA
Para centrar automáticamente todas las casillas de verificación en las celdas de la hoja de trabajo actual, siga estos sencillos pasos.
1. En la hoja de cálculo donde necesite centrar automáticamente todas las casillas de verificación, pulse las teclas Alt+F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. En la ventana de Microsoft Visual Basic para Aplicaciones, haga clic en Insertar > Módulo. A continuación, copie y pegue el código VBA en la ventana de código.
Código VBA: Centrar automáticamente todas las casillas de verificación en las celdas
Sub CenterCheckbox ()
Dim xRg As Range
Dim chkBox As OLEObject
Dim chkFBox As CheckBox
On Error Resume Next
Application.ScreenUpdating = False
For Each chkBox In ActiveSheet.OLEObjects
If TypeName(chkBox.Object) = "CheckBox" Then
Set xRg = chkBox.TopLeftCell
chkBox.Width = xRg.Width * 2 / 3
chkBox.Height = xRg.Height
chkBox.Left = xRg.Left + (xRg.Width - chkBox.Width) / 2
chkBox.Top = xRg.Top + (xRg.Height - chkBox.Height) / 2
End If
Next
For Each chkFBox In ActiveSheet.CheckBoxes
Set xRg = chkFBox.TopLeftCell
chkFBox.Width = xRg.Width * 2 / 3
chkFBox.Height = xRg.Height
chkFBox.Left = xRg.Left + (xRg.Width - chkFBox.Width) / 2
chkFBox.Top = xRg.Top + (xRg.Height - chkFBox.Height) / 2
Next
Application.ScreenUpdating = True
End Sub3. Pulse la tecla F5. A continuación, todas las casillas de verificación se centrarán automáticamente en sus celdas, tal como se muestra en la siguiente captura de pantalla.
Nota: Este código VBA es compatible tanto con las casillas de verificación (Control ActiveX) como con las casillas de verificación (Control de formulario).
Consejo: Si desea insertar varias casillas de verificación en un rango seleccionado de forma masiva, puede probar la utilidad Inserción masiva de casillas de verificación de Kutools para Excel. O bien, inserte varios botones de opción en lote con la utilidad Insertar botón de opción en lote. Además, puede eliminar todas las casillas de verificación de una sola vez con la utilidad Eliminar casillas de verificación en lotes, como se muestra en las capturas de pantalla siguientes. Puede descargar gratuitamente el software sin limitaciones durante 30 días.
Artículos relacionados:
- ¿Cómo crear una lista desplegable con varias casillas de verificación en Excel?
- ¿Cómo cambiar el valor o el color de una celda específica al marcar una casilla de verificación en Excel?
- ¿Cómo resaltar una celda o fila mediante una casilla de verificación en Excel?
- ¿Cómo marcar automáticamente una casilla de verificación en función del valor de una celda en Excel?
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos