Как изменить цвет индикатора комментария в Excel?
В Excel после вставки комментария в правом верхнем углу ячейки появляется маленький красный треугольный индикатор. Многие пользователи Excel могут задаться вопросом, можно ли изменить цвет красного индикатора на другие цвета, которые им нравятся. В этой статье я расскажу об обходном пути, чтобы завершить эту задачу.
Изменить цвет индикатора комментария с кодом VBA
Изменить цвет индикатора комментария с кодом VBA
У нас нет прямого способа быстро и легко изменить цвет индикаторов комментариев, но следующий код VBA может помочь вам нарисовать треугольную форму, перекрывающую каждый индикатор комментария с определенным цветом, который вам нужен на активном листе.
1. Активируйте свой рабочий лист, для которого вы хотите изменить цвет индикаторов комментариев.
2. Удерживайте ALT + F11 , чтобы открыть Окно Microsoft Visual Basic для приложений.
3. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.
Код 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. В приведенном выше коде вы можете изменить синий цвет на свой, просто изменив индекс цвета в скрипте. .Fill.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 for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!