如何在 Excel 中更改批注指示器的颜色？

在 Excel 中，插入批注后，单元格的右上角会出现一个小的红色三角形指示器。许多 Excel 用户可能想知道是否可以将红色指示器的颜色更改为他们喜欢的其他颜色。在本文中，我将介绍一种解决此问题的方法。

使用 VBA 代码更改批注指示器的颜色

使用 VBA 代码更改批注指示器的颜色

我们无法直接快速轻松地更改批注指示器的颜色，但以下 VBA 代码可以帮助您在当前工作表上为每个批注指示器绘制一个特定颜色的三角形形状以覆盖它。

1. 激活您要更改批注指示器颜色的工作表。

2. 按住 ALT + F11 键打开 Microsoft Visual Basic for Applications 窗口。

3. 单击 插入 > 模块，并将以下代码粘贴到模块窗口中。

VBA 代码：更改当前工作表中的批注指示器颜色

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. 粘贴代码后，按 F5 键执行代码，所有红色三角形指示器都会被蓝色三角形覆盖，如下图所示：

注意：

1. 在上述代码中，您可以通过更改脚本中的颜色编号来更改蓝色为其他颜色，例如 .Fill.ForeColor.SchemeColor = 12。

2. 当您调整单元格大小时，通过上述 VBA 添加的三角形形状也会随之改变大小。

3. 如果您想立即删除所有彩色三角形形状，以下 VBA 代码可以帮您一个忙：

VBA 代码：移除批注指示器上的三角形形状

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

相关文章：

如何在 Excel 中高亮显示所有带有批注的单元格？

如何在 Excel 中显示或隐藏所有批注和批注指示器？