Wie ändere ich die Farbe der Kommentaranzeige in Excel?
In Excel wird nach dem Einfügen eines Kommentars in der oberen rechten Ecke der Zelle ein kleines rotes Dreieck angezeigt. Viele Excel-Benutzer fragen sich möglicherweise, ob die rote Indikatorfarbe in andere Farben geändert werden kann, die sie mögen. In diesem Artikel werde ich über eine Problemumgehung sprechen, um diese Aufgabe abzuschließen.
Ändern Sie die Farbe der Kommentaranzeige mit dem VBA-Code
Ändern Sie die Farbe der Kommentaranzeige mit dem VBA-Code
Es gibt keine direkte Möglichkeit für uns, die Farbe der Kommentarindikatoren schnell und einfach zu ändern. Der folgende VBA-Code kann Ihnen jedoch dabei helfen, eine dreieckige Form zu zeichnen, die jeden Kommentarindikator mit einer bestimmten Farbe überlappt, die Sie auf dem aktiven Blatt benötigen.
1. Aktivieren Sie Ihr Arbeitsblatt, um die Farbe der Kommentarindikatoren zu ändern.
2. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen-Fenster.
3. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modulfenster.
VBA-Code: Ändern Sie die Farbe der Kommentaranzeige im aktiven Blatt
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. Drücken Sie nach dem Einfügen des Codes F5 Taste, um den Code auszuführen, und alle roten Dreiecksindikatoren werden wie in den folgenden Screenshots durch die blauen Dreiecke abgedeckt:
 |
 |
 |
Anmerkungen:
1. Im obigen Code können Sie die blaue Farbe nach Ihren Wünschen ändern, indem Sie einfach den Farbindex im Skript ändern .Fill.ForeColor.SchemeColor = 12.
2. Die Dreiecksform, die Sie über VBA hinzufügen, ändert ihre Größe, wenn Sie die Größe der Zelle ändern.
3. Wenn Sie alle farbigen Dreiecksformen sofort entfernen möchten, hilft Ihnen der folgende VBA-Code:
VBA-Code: Entfernen Sie dreieckige Formen über den Kommentarindikatoren
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
In Verbindung stehende Artikel:
Wie markiere ich alle Zellen mit Kommentaren in Excel?
Wie kann ich alle Kommentare und Kommentarindikatoren in Excel ein- oder ausblenden?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
