Як змінити колір індикатора коментаря в Excel?
У Excel після вставлення коментаря у верхньому правому куті комірки з’являється маленький індикатор червоного трикутника. Багато користувачів Excel можуть задатися питанням, чи можна червоний колір індикатора змінити на інші кольори, які їм подобаються. У цій статті я розповім про обхідний шлях для завершення цього завдання.
Змініть колір індикатора коментаря за допомогою коду VBA
Змініть колір індикатора коментаря за допомогою коду VBA
Ми не маємо прямого способу швидко і легко змінити колір індикаторів коментарів, але наступний код VBA може допомогти вам намалювати трикутну форму, що перекриває кожен індикатор коментаря певним кольором, необхідним вам на активному аркуші.
1. Активуйте робочий аркуш, в якому потрібно змінити колір індикаторів коментарів.
2. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Вікно Microsoft Visual Basic для програм.
3. Клацання Insert > Модуліта вставте наступний код у Вікно модуля.
Код VBA: змініть колір індикатора коментаря в активному аркуші
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. Вставивши код, натисніть F5 клавіша для виконання коду, і всі індикатори червоного трикутника покриті синіми трикутниками, як показано на наступних скріншотах:
Примітки:
1. У наведеному вище коді ви можете змінити синій колір на свій лайк, просто змінивши індекс кольору в сценарії .Заповніть.ForeColor.SchemeColor = 12.
2. Форма трикутника, яку ви додасте вище VBA, буде змінена за розміром, коли ви зміните розмір комірки.
3. Якщо ви хочете негайно видалити всі кольорові фігури трикутника, такий код VBA допоможе вам:
Код VBA: Видаліть трикутні фігури над індикаторами коментарів
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
Статті по темі:
Як виділити всі комірки коментарями в Excel?
Як показати або приховати всі коментарі та індикатори коментарів у Excel?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!