¿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?