¿Cómo cambiar el color del indicador de comentario en Excel?
En Excel, después de insertar un comentario, aparece un pequeño triángulo rojo en la esquina superior derecha de la celda. Muchos usuarios de Excel pueden preguntarse si el color del indicador rojo se puede cambiar a otros colores que les gusten. En este artículo, hablaré sobre una solución alternativa para realizar esta tarea.
Cambiar el color del indicador de comentario con código VBA
Cambiar el color del indicador de comentario con código VBA
No hay una manera directa de cambiar rápidamente y fácilmente el color de los indicadores de comentarios, pero el siguiente código VBA puede ayudarte a dibujar una forma triangular superpuesta sobre cada indicador de comentario con un color específico que necesites en la hoja activa.
1. Activa tu hoja de cálculo donde deseas cambiar el color de los indicadores de comentarios.
2. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
3. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana del Módulo.
Código VBA: Cambiar el color del indicador de comentario en la hoja activa
Sub CoverCommentIndicator()
'Update 20141110
Dim pWs As Worksheet
Dim pComment As Comment
Dim pRng As Range
Dim pShape As Shape
Set pWs = Application.ActiveSheet
wShp = 6
hShp = 4
For Each pComment In pWs.Comments
Set pRng = pComment.Parent
Set pShape = pWs.Shapes.AddShape(msoShapeRightTriangle, pRng.Offset(0, 1).Left - wShp, pRng.Top, wShp, hShp)
With pShape
.Flip msoFlipVertical
.Flip msoFlipHorizontal
.Fill.ForeColor.SchemeColor = 12
.Fill.Visible = msoTrue
.Fill.Solid
.Line.Visible = msoFalse
End With
Next
End Sub
4. Después de pegar el código, presiona la tecla F5 para ejecutarlo, y todos los indicadores triangulares rojos serán cubiertos por triángulos azules como se muestra en las siguientes capturas de pantalla:
 |
 |
 |
Notas:
1. En el código anterior, puedes cambiar el color azul al que prefieras simplemente cambiando el índice de color en el script .Fill.ForeColor.SchemeColor = 12.
2. La forma triangular que agregaste con el VBA anterior cambiará de tamaño cuando redimensiones la celda.
3. Si deseas eliminar todas las formas triangulares coloreadas inmediatamente, el siguiente código VBA te hará un favor:
Código VBA: Eliminar formas triangulares sobre los indicadores de comentarios
Sub RemoveIndicatorShapes()
'Update 20141110
Dim pWs As Worksheet
Dim pShape As Shape
Set pWs = Application.ActiveSheet
For Each pShape In pWs.Shapes
If Not pShape.TopLeftCell.Comment Is Nothing Then
If pShape.AutoShapeType = msoShapeRightTriangle Then
pShape.Delete
End If
End If
Next
End Sub
Artículos relacionados:
¿Cómo resaltar todas las celdas con comentarios en Excel?
¿Cómo mostrar u ocultar todos los comentarios e indicadores de comentarios en Excel?
Las mejores herramientas de productividad para Office
Mejora tu dominio de Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...
Office Tab incorpora la interfaz de pestañas en Office y facilita mucho tu trabajo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!
Todos los complementos de Kutools. Un solo instalador
El paquete Kutools for Office agrupa complementos para Excel, Word, Outlook y PowerPoint junto con Office Tab Pro, ideal para equipos que trabajan en varias aplicaciones de Office.
- Suite todo en uno: complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un solo instalador, una licencia: configuración en minutos (compatible con MSI)
- Mejor juntos: productividad optimizada en todas las aplicaciones de Office
- Prueba completa de30 días: sin registro ni tarjeta de crédito
- La mejor relación calidad-precio: ahorra en comparación con la compra individual de complementos