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?
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 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 Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins