Hoe verander je de kleur van de opmerkingindicator in Excel?

In Excel verschijnt er na het invoegen van een opmerking een klein rood driehoekje in de rechterbovenhoek van de cel. Veel Excel-gebruikers vragen zich af of deze rode indicator in een andere gewenste kleur kan worden weergegeven. In dit artikel bespreek ik een alternatieve methode om deze taak uit te voeren.

De kleur van de opmerkingindicator wijzigen met VBA-code

De kleur van de opmerkingindicator wijzigen met VBA-code

Er is geen directe manier om snel en eenvoudig de kleur van de opmerkingindicatoren te wijzigen, maar met de onderstaande VBA-code kun je een driehoekige vorm met de gewenste kleur over elke opmerkingindicator op het huidig werkblad plaatsen.

1. Activeer het werkblad waarvan je de kleur van de opmerkingindicatoren wilt wijzigen.

2. Houd de toetsen ALT + F11 ingedrukt om het Microsoft Visual Basic for Applications-venster te openen.

3. Klik op Invoegen > Module en plak de onderstaande code in het Module-venster.

VBA-code: Kleur van opmerkingindicator wijzigen in huidig werkblad

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. Nadat je de code hebt geplakt, druk je op de F5-toets om de code uit te voeren. Alle rode driehoekige indicatoren worden nu bedekt door blauwe driehoeken, zoals te zien is in de onderstaande schermafbeeldingen:

Opmerkingen:

1. In de bovenstaande code kun je de blauwe kleur aanpassen door de kleurcode te wijzigen in het script .Fill.ForeColor.SchemeColor =12.

2. De driehoekige vorm die je met bovenstaande VBA toevoegt, verandert van grootte wanneer je de celgrootte aanpast.

3. Wil je alle gekleurde driehoekige vormen direct verwijderen? Gebruik dan de volgende VBA-code:

VBA-code: Driehoekige vormen boven opmerkingindicatoren verwijderen

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

Gerelateerde artikelen:

Hoe markeer je alle cellen met opmerkingen in Excel?

Hoe toon of verberg je alle opmerkingen en opmerkingindicatoren in Excel?