Partilhar via

Objeto IconSetCondition (Excel)

  • Artigo

Representa a regra de formatação condicional de um conjunto de ícones.

Comentários

Todos os objetos de formatação condicional estão contidos em um objeto de coleção FormatConditions , que é filho de uma coleção Range .

Você pode criar uma regra de formatação de conjunto de ícones usando o método Add ou AddIconSetCondition da coleção FormatConditions .

Cada conjunto de ícones contém três, quatro ou cinco ícones. Você usa a propriedade IconSets do objeto Workbook para retornar um objeto IconSets para especificar um dos conjuntos de ícones internos. Cada ícone individual no conjunto de ícones é atribuído a um subconjunto dos valores do intervalo pelos membros do objeto IconCriteria . O tipo de limite também é especificado por esse objeto.

Exemplo

O exemplo de código a seguir cria um intervalo de números que representam as pontuações de teste e, em seguida, aplica uma regra de formatação condicional de conjunto de ícones a esse intervalo. O tipo de conjunto de ícones é alterado dos ícones padrão para um conjunto de ícones de cinco setas. Finalmente, o tipo de limite é modificado do percentil para um número embutido em código.

Sub CreateIconSetCF() 
 
    Dim cfIconSet As IconSetCondition 
     
    'Fill cells with sample data from 1 to 10 
    With ActiveSheet 
        .Range("C1") = 55 
        .Range("C2") = 92 
        .Range("C3") = 88 
        .Range("C4") = 77 
        .Range("C5") = 66 
        .Range("C6") = 93 
        .Range("C7") = 76 
        .Range("C8") = 80 
        .Range("C9") = 79 
        .Range("C10") = 83 
        .Range("C11") = 66 
        .Range("C12") = 74 
    End With 
     
    Range("C1:C12").Select 
         
    'Create an icon set conditional format for the created sample data range 
    Set cfIconSet = Selection.FormatConditions.AddIconSetCondition 
     
    'Change the icon set to a five-arrow icon set 
    cfIconSet.IconSet = ActiveWorkbook.IconSets(xl5Arrows) 
     
    'The IconCriterion collection contains all IconCriteria 
    'By indexing into the collection you can modify each criterion 
 
    With cfIconSet.IconCriteria(1) 
        .Type = xlConditionValueNumber 
        .Value = 0 
        .Operator = 7 
    End With 
    With cfIconSet.IconCriteria(2) 
        .Type = xlConditionValueNumber 
        .Value = 60 
        .Operator = 7 
    End With 
    With cfIconSet.IconCriteria(3) 
        .Type = xlConditionValueNumber 
        .Value = 70 
        .Operator = 7 
    End With 
    With cfIconSet.IconCriteria(4) 
        .Type = xlConditionValueNumber 
        .Value = 80 
        .Operator = 7 
    End With 
    With cfIconSet.IconCriteria(5) 
        .Type = xlConditionValueNumber 
        .Value = 90 
        .Operator = 7 
    End With 
         
End Sub

Métodos

Propriedades

Confira também

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.