Clase Icon (Excel VBA)

La clase Icon representa un icono de un conjunto de iconos usados en una regla de formato condicional.

Set

Para usar una variable de clase Icon, primero debe ser instanciado, por ejemplo

Dim icn as Icon
Set icn = ActiveWorkbook.IconSets(1)(Index:=1)

Los siguientes procedimientos se pueden usar para establecer variables de clase Icon : IconSet.Item, Parent, IconSetCondition.IconSet y IconSets.Item

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos Icon en una colección.

Dim icnParent As Icon
For Each icnParent In ActiveWorkbook.IconSets.Parent
	
Next icnParent

Index

Devuelve un valor de tipo Long que especifica el número de índice del objeto Icon contenido en el objeto IconSet.

Dim lngIndex As Long
lngIndex = ActiveWorkbook.IconSets(1)(1).Index

Parent

Devuelve el objeto primario del objeto especificado.

IconSet.Count

Devuelve un valor Long que especifica el número de iconos incluidos en el conjunto de iconos.

Dim lngCount As Long
lngCount = ActiveWorkbook.IconSets(1).Count

IconSet.ID

Devuelve una de las constantes de la enumeración XlIconSet , que especifica el nombre del conjunto de iconos usado en una regla de formato condicional de conjunto de iconos.

Valores posibles son xl3Arrows - 3 flechas, xl3ArrowsGray - 3 flechas (de color gris), xl3Flags - 3 banderas, xl3Signs - 3 signos, xl3Stars, xl3Symbols - 3 símbolos, xl3Symbols2, xl3TrafficLights1 - 3 semáforos 1, xl3TrafficLights2 - 3 semáforos 2, xl3Triangles, xl4Arrows - 4 flechas, xl4ArrowsGray - 4 flechas (de color gris), xl4CRV - 4 CRV, xl4RedToBlack - 4 De rojo a negro, xl4TrafficLights - 4 semáforos, xl5Arrows - 5 flechas, xl5ArrowsGray - 5 flechas (de color gris), xl5Boxes, xl5CRV - 5 CRV, xl5Quarters - 5 partes, xlCustomSet.
Dim xisID As XlIconSet
xisID = ActiveWorkbook.IconSets(1).ID

IconSet.Item

Devuelve un objeto Icon que representa un solo icono de un conjunto de iconos.

El valor del parámetro Index no puede ser mayor que el número de iconos contenidos en un conjunto de iconos.

Sintaxis : expression.Item (Index)

Index: Número de índice del objeto Icon.

Dim icnItem As Icon
Set icnItem = ActiveWorkbook.IconSets(1)(Index:=1)

IconSet.Parent

Devuelve el objeto primario del objeto especificado.