Как считывать значения, которые определяют цвета из существующего условного формата типа «Цветовая шкала»

Question

Можно ли считывать значения, определяющие цвета, из существующего условного формата типа ColorScale?

Я понимаю, как применять условное форматирование к диапазону с помощью кода VBA.То, что я не смог найти в сети и получить какую-либо полезную информацию от устройства записи макросов, - это как считать существующий условный формат, чтобы он возвращал точные значения, используемые в цветовой шкале.

Все, что MS предоставляет для документации, - это то, что вы можете изменять FormatCondition здесь , но не как его считывать.

Моя конечная цель - написать код, который автоматически объединит дублирующиеся условные выражения.диапазоны форматирования, но не имея возможности получить точные значения для всех CF, я не могу сравнить, если два CF идентичны.

Answer 1

Sub f()

Dim o As ColorScale

Set o = Range("a1").FormatConditions(1)

Debug.Print o.ColorScaleCriteria(1).Value, o.ColorScaleCriteria(2).Value, o.ColorScaleCriteria(3).Value

End Sub