Classe ColorScaleCriteria - objetos ColorScaleCriterion (Excel VBA)
Uma coleção de objetos ColorScaleCriterion que representa todos os critérios para um formato condicional de escala de cores. Cada critério especifica o limite mínimo, médio e máximo da escala de cores. Para usar uma variável de classe ColorScaleCriteria, ela primeiro precisa ser instanciada por exemplo
Dim csc as ColorScaleCriteria
Set csc = ActiveCell.FormatConditions(1).ColorScaleCriteria
For Each
Aqui está um exemplo de processamento dos itens ColorScaleCriteria em uma coleção.
Dim cscColorScaleCriteria As ColorScaleCriterion
For Each cscColorScaleCriteria In ActiveCell.FormatConditions(1).ColorScaleCriteria
Next cscColorScaleCriteria
Count
Retorna um valor Long que especifica o número de critérios para uma regra de formatação condicional de escala de cores. Somente leitura.
O número de critérios é equivalente ao número de valores limite atribuído a uma escala de cores. Isso será dois ou três, dependendo se você usar uma escala de duas cores ou uma escala de três cores para a regra de formatação condicional.
Dim lngCount As Long
lngCount = ActiveCell.FormatConditions(1).ColorScaleCriteria.Count
Item
Retorna um único objeto ColorScaleCriterion da coleção ColorScaleCriteria . Somente leitura.
O valor do parâmetro index não pode ser maior que o número de critérios definidos para um formato condicional de escala de cores. Os critérios são equivalentes ao valores limite atribuídos à escala de cores. Para localizar o número de valores de limite, use a propriedade Count .
Item (Index)
Index: O número de índice do objeto ColorScaleCriterion.
Dim cscItem As ColorScaleCriterion
Set cscItem = ActiveCell.FormatConditions(1).ColorScaleCriteria(Index:=1)