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?
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen