Wie ändert man die Farbe des Kommentarindikators in Excel?

In Excel erscheint nach dem Einfügen eines Kommentars ein kleines rotes Dreieck in der oberen rechten Ecke der Zelle. Viele Excel-Benutzer fragen sich möglicherweise, ob die Farbe des roten Indikators in eine andere, bevorzugte Farbe geändert werden kann. In diesem Artikel werde ich über eine Lösung sprechen, um diese Aufgabe zu erledigen.

Kommentarindikatorfarbe mit VBA-Code ändern

Kommentarindikatorfarbe mit VBA-Code ändern

Es gibt keinen direkten Weg, die Farbe der Kommentarindikatoren schnell und einfach zu ändern, aber der folgende VBA-Code kann Ihnen helfen, ein dreieckiges Formular über jeden Kommentarindikator auf dem aktiven Arbeitsblatt mit einer bestimmten Farbe Ihrer Wahl zu zeichnen.

1. Aktivieren Sie Ihr Arbeitsblatt, in dem Sie die Farbe der Kommentarindikatoren ändern möchten.

2. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

3. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code im Modulfenster ein.

VBA-Code: Ändern der Kommentarindikatorfarbe im aktiven Arbeitsblatt

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. Nachdem Sie den Code eingefügt haben, drücken Sie die F5-Taste, um den Code auszuführen, und alle roten Dreiecksindikatoren werden wie in den folgenden Screenshots gezeigt von blauen Dreiecken überdeckt.

Hinweise:

1. Im obigen Code können Sie die blaue Farbe durch Ihre gewünschte Farbe ändern, indem Sie einfach den Farbcode im Skript .Fill.ForeColor.SchemeColor = 12 anpassen.

2. Die Dreiecksform, die Sie mit dem obigen VBA hinzufügen, ändert ihre Größe, wenn Sie die Zelle vergrößern oder verkleinern.

3. Wenn Sie alle farbigen Dreiecksformen sofort entfernen möchten, wird der folgende VBA-Code Ihnen dabei helfen:

VBA-Code: Dreiecksformen über den Kommentarindikatoren entfernen

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

Verwandte Artikel:

Wie markiert man alle Zellen mit Kommentaren in Excel?

Wie zeigt oder blendet man alle Kommentare und Kommentarindikatoren in Excel ein oder aus?