Поделиться через

Свойство IconCriterion.Icon (Excel)

  • Статья

Возвращает или задает значок для критерия в правиле условного форматирования набора значков. Для чтения и записи.

Синтаксис

expression. Значок

Выражение Переменная, представляющая объект IconCriterion .

Замечания

После задания свойства Icon для критерия значка в правиле условного форматирования набора значков свойство IconSet объекта IconSetCondition будет изменено на xlCustomSet.

Пример

В следующем примере кода создается правило условного форматирования набора значков, которое отображает четыре значка, разделенные на указанные проценты. В наборе значков изначально используется набор значков "4 стрелки" (цветные), но свойство Icon используется для переопределения значков, используемых для первого и третьего критериев.

После выполнения кода значок для первого критерия — значок Красного Креста, значок второго критерия — второй стрелки из набора значков 4 стрелки (цветные), значок для третьего критерия — значок желтого светофора, а значок для четвертого критерия — четвертая стрелка из набора значков 4 стрелки (цветные).

Range("A1:A10").Select 
Selection.FormatConditions.AddIconSetCondition 
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority 
 
With Selection.FormatConditions(1) 
 .ReverseOrder = False 
 .ShowIconOnly = False 
 .IconSet = ActiveWorkbook.IconSets(xl4Arrows) 
End With 
 
With Selection.FormatConditions(1).IconCriteria(1) 
 .Icon = xlIconRedCross 
End With 
 
With Selection.FormatConditions(1).IconCriteria(2) 
 .Type = xlConditionValuePercent 
 .Value = 25 
 .Operator = 7 
End With 
 
With Selection.FormatConditions(1).IconCriteria(3) 
 .Type = xlConditionValuePercent 
 .Value = 50 
 .Operator = 7 
 .Icon = xlIconYellowTrafficLight 
End With 
 
With Selection.FormatConditions(1).IconCriteria(4) 
 .Type = xlConditionValuePercent 
 .Value = 75 
 .Operator = 7 
End With

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.