¿Cómo cambiar el color del indicador de comentarios en Excel?
En Excel, después de insertar un comentario, aparece un pequeño indicador de 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 para completar esta tarea.
Cambiar el color del indicador de comentarios con el código VBA
Cambiar el color del indicador de comentarios con el código VBA
No existe una forma directa de que cambiemos el color de los indicadores de comentarios de forma rápida y sencilla, pero el siguiente código VBA puede ayudarlo a dibujar una forma triangular que se superponga a cada indicador de comentario con un color específico que necesita en la hoja activa.
1. Active su hoja de trabajo en la que desea cambiar el color de los indicadores de comentarios.
2. Mantenga pulsado el ALT + F11 teclas para abrir el Ventana de Microsoft Visual Basic para aplicaciones.
3. Hacer clic recuadro > Móduloy pegue el siguiente código en el Ventana de módulo.
Código de 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, presione F5 para ejecutar el código, y todos los indicadores de triángulo rojo están cubiertos por triángulos azules como se muestra en las siguientes capturas de pantalla:
Notas:
1. En el código anterior, puede cambiar el color azul a su gusto simplemente cambiando el índice de color en el script. .Fill.ForeColor.SchemeColor = 12.
2. La forma de triángulo que agregue por encima de VBA cambiará de tamaño cuando cambie el tamaño de la celda.
3. Si desea eliminar todas las formas de triángulos de colores de inmediato, el siguiente código VBA le servirá:
Código VBA: elimine 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 de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite 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 de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!