¿Cómo trazar un círculo alrededor de una celda en Excel?
Al editar una hoja de cálculo, es posible que desee resaltar una celda dibujando un círculo a su alrededor, tal como se muestra en la siguiente captura de pantalla. A continuación, le presentamos algunos trucos sencillos para trazar un círculo alrededor de una celda en Excel.
Trazar un círculo alrededor de una celda con una forma ovalada
Trazar un círculo alrededor de una celda con VBA
Trazar un círculo alrededor de una celda con una forma ovalada
Para trazar un círculo alrededor de una celda, inserte una forma ovalada.
1. Haga clic en Insertar > Formas y seleccione la forma Óvalo en la sección Formas básicas del menú desplegable. Vea la captura de pantalla:
2. Dibuje un óvalo alrededor de la celda que quiera resaltar. Consulte la captura de pantalla:
3. Haga clic con el botón derecho en la forma y seleccione Formato de forma en el menú contextual.
4. En el cuadro de diálogo Formato de forma(o en el panel)Formato de forma), haga clic en la pestaña Relleno y arrastre la flecha de Transparencia hacia la derecha hasta que aparezca 100 % en el cuadro de texto. Vea la captura de pantalla:
5. Cierre el cuadro de diálogo. Ahora verá un círculo alrededor de la celda.
Consejo: De forma predeterminada, la forma se mueve y ajusta junto con la celda.
Trazar un círculo alrededor de una celda con VBA
Si desea trazar rápidamente un círculo alrededor de una celda, puede usar código VBA.
1. Seleccione la celda que desee rodear y pulse simultáneamente las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo y copie el siguiente código VBA en la ventana que aparece.
VBA: Dibuja un círculo alrededor de una celda.
Sub DrawCircle()
'Updateby20141105
Dim Arng As Range
Dim WorkRng As Range
Set WorkRng = Application.Selection
For Each Arng In WorkRng.Areas
With Arng
x = Arng.Height * 0.1
y = Arng.Width * 0.1
Application.ActiveSheet.Ovals.Add Top: = .Top - x, Left: = .Left - y, _
Height: = .Height + 2 * x, Width: = .Width + 1.5 * y
With Application.ActiveSheet.Ovals(ActiveSheet.Ovals.Count)
.Interior.ColorIndex = xlNone
.ShapeRange.Line.Weight = 1.25
End With
End With
Next
WorkRng.Select
End Sub
3. Pulse la tecla F5 o haga clic en el botón Ejecutar para ejecutar el código VBA. ¡Ahora la celda seleccionada quedará rodeada por un círculo!
Consejos:
(1) Si selecciona varias celdas adyacentes en el primer paso, esta macro de VBA trazará un único círculo alrededor de todas ellas.
(2) Si selecciona varias celdas no adyacentes en el primer paso, esta macro de VBA trazará un círculo individual alrededor de cada una.
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