IconSets-Objekt (Excel)
Stellt eine Auflistung von Symbolsätzen dar, die in einer Regel zur bedingten Formatierung von Symbolsätzen verwendet werden.
Der Symbolsatz für das bedingte Format wird mithilfe der IconSet-Eigenschaft des IconSetCondition-Objekts zugewiesen. Sie legen diese Eigenschaft auf einen der integrierten Symbolsätze fest, indem Sie eine der Konstanten der XlIconSet-Enumeration als Index der IconSets-Eigenschaft des Workbook-Objekts übergeben. Detaillierte Informationen hierzu finden Sie im Beispiel.
Im folgenden Codebeispiel wird ein Zahlenbereich erstellt, der Testergebnisse darstellt, und dann wird eine Regel für die bedingte Formatierung von Symbolen auf diesen Bereich angewendet. Der Typ des Symbolsatzes wird dann von den Standardsymbolen in einen Symbolsatz mit fünf Pfeilen geändert. Schließlich wird der Schwellenwerttyp vom Perzentil in eine hartcodierte Zahl geändert.
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
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.