Comment changer la couleur de l'indicateur de commentaire dans Excel?
Dans Excel, après avoir inséré un commentaire, un petit indicateur de triangle rouge apparaît dans le coin supérieur droit de la cellule. De nombreux utilisateurs d'Excel peuvent se demander si la couleur de l'indicateur rouge peut être remplacée par d'autres couleurs qu'ils aiment. Dans cet article, je vais parler d'une solution de contournement pour terminer cette tâche.
Changer la couleur de l'indicateur de commentaire avec le code VBA
Changer la couleur de l'indicateur de commentaire avec le code VBA
Il n'existe aucun moyen direct pour nous de changer la couleur des indicateurs de commentaire rapidement et facilement, mais le code VBA suivant peut vous aider à dessiner une forme triangulaire chevauchant chaque indicateur de commentaire avec une couleur spécifique dont vous avez besoin sur la feuille active.
1. Activez votre feuille de calcul dont vous souhaitez modifier la couleur des indicateurs de commentaire.
2. Maintenez le ALT + F11 clés pour ouvrir le Fenêtre Microsoft Visual Basic pour Applications.
3Cliquez sur insérer > Moduleet collez le code suivant dans le Fenêtre du module.
Code VBA: changer la couleur de l'indicateur de commentaire dans la feuille active
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. Après avoir collé le code, appuyez sur F5 pour exécuter le code, et tous les indicateurs de triangle rouge sont couverts par les triangles bleus comme les captures d'écran suivantes:
Notes:
1. Dans le code ci-dessus, vous pouvez changer la couleur bleue à votre goût en changeant simplement l'index de couleur dans le script .Fill.ForeColor.SchemeColor = 12.
2. La forme de triangle que vous ajoutez au-dessus de VBA changera sa taille lorsque vous redimensionnerez la cellule.
3. Si vous souhaitez supprimer immédiatement toutes les formes triangulaires colorées, le code VBA suivant vous fera un truc:
Code VBA: supprimer les formes triangulaires sur les indicateurs de commentaire
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
Articles Liés:
Comment mettre en évidence toutes les cellules avec des commentaires dans Excel?
Comment afficher ou masquer tous les commentaires et indicateurs de commentaires dans Excel?
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!