Jak zmienić kolor wskaźnika komentarza w programie Excel?
W programie Excel po wstawieniu komentarza w prawym górnym rogu komórki pojawia się mały czerwony trójkątny wskaźnik. Wielu użytkowników programu Excel może się zastanawiać, czy czerwony kolor wskaźnika można zmienić na inny, który im się podoba. W tym artykule omówię sposób obejścia tego zadania.
Zmień kolor wskaźnika komentarza za pomocą kodu VBA
Zmień kolor wskaźnika komentarza za pomocą kodu VBA
Nie ma bezpośredniego sposobu, abyśmy mogli szybko i łatwo zmienić kolor wskaźników komentarzy, ale poniższy kod VBA może pomóc w narysowaniu trójkątnego kształtu nakładającego się na każdy wskaźnik komentarza o określonym kolorze, którego potrzebujesz na aktywnym arkuszu.
1. Aktywuj swój arkusz roboczy, w którym chcesz zmienić kolor wskaźników komentarzy.
2. Przytrzymaj ALT + F11 klawisze, aby otworzyć Okno Microsoft Visual Basic for Applications.
3. Kliknij wstawka > Modułi wklej następujący kod w Okno modułu.
Kod VBA: Zmień kolor wskaźnika komentarza w aktywnym arkuszu
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. Po wklejeniu kodu naciśnij F5 klawisz, aby wykonać kod, a wszystkie czerwone wskaźniki trójkątów są zakryte niebieskimi trójkątami, jak pokazano na poniższych zrzutach ekranu:
Uwagi:
1. W powyższym kodzie możesz zmienić kolor niebieski na swój, po prostu zmieniając indeks kolorów w skrypcie .Fill.ForeColor.SchemeColor = 12.
2. Kształt trójkąta, który dodasz powyżej VBA, zmieni swój rozmiar, gdy zmienisz rozmiar komórki.
3. Jeśli chcesz natychmiast usunąć wszystkie kolorowe kształty trójkątów, poniższy kod VBA zrobi ci korzyść:
Kod VBA: Usuń trójkątne kształty nad wskaźnikami komentarzy
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
Podobne artykuły:
Jak wyróżnić wszystkie komórki komentarzami w programie Excel?
Jak pokazać lub ukryć wszystkie komentarze i wskaźniki komentarzy w programie Excel?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!