GroupCriterion2-Objekt (Project)
Stellt ein Kriterium in einer Gruppendefinition, in dem die Gruppenhierarchie verwaltet und die Zellfarbe ein Hexadezimalwert sein kann. GroupCriterion2 -Objekt ist ein Mitglied der GroupCriteria2 -Auflistung.
Beispiel
Verwenden des GroupCriterion2-Objekts
Verwenden Sie **GroupCriteria2(**Index), wobeiIndex der Kriterienindex ist, um ein einzelnes GroupCriterion2-Objekt zurückzugeben. Im folgende Beispiel wird die Zellfarbe für das erste Kriterium in der Ressourcengruppe Standard Rate auf Blau festgelegt.
ActiveProject.ResourceGroups2("Standard Rate").GroupCriteria2(1).CellColor = &HFF0000
Verwenden des GroupCriterion2-Objekts
Verwenden Sie die GroupCriteria -Eigenschaft, um eine GroupCriteria2 -Auflistung zurückzugeben. Im folgenden Beispiel wird eine Liste der Felder, die in der angegebenen Vorgangsgruppe als Kriterien verwendet werden, und deren Sortierreihenfolge (aufsteigend oder absteigend) angezeigt.
Dim GC2 As GroupCriterion2
Dim Fields As String
For Each GC2 In ActiveProject.TaskGroups2("Priority Keeping Outline Structure").GroupCriteria
If GC2.Ascending = True Then
Fields = Fields & GC2.Index & ". " & GC2.FieldName & " is sorted in ascending order." & vbCrLf
Else
Fields = Fields & GC2.Index & ". " & GC2.FieldName & " is sorted in descending order." & vbCrLf
End If
Next GC2
MsgBox Fields
Verwenden Sie die AddEx-Methode, um der GroupCriteria2-Auflistung ein GroupCriterion2-Objekt hinzuzufügen, wobei CellColor ein Hexadezimalwert sein kann. Im folgenden Beispiel wird der angegebenen Ressourcengruppe ein weiteres Kriterium hinzugefügt, wobei die Ressourcen in aufsteigender Reihenfolge gemäß des Prozentsatzes der abgeschlossenen Arbeit (in Schritten von 25 %) gruppiert werden.
ActiveProject.ResourceGroups2("Response Pending").GroupCriteria2.AddEx "% Work Complete", True, _
CellColor:=&H0101FF, GroupOn:=pjGroupOnPct1_25
Methoden
| Name |
|---|
| Delete |
Eigenschaften
| Name |
|---|
| Application |
| Aufsteigend |
| Assignment |
| CellColor |
| CellColorEx |
| FieldName |
| FontBold |
| FontColor |
| FontColorEx |
| FontItalic |
| FontName |
| FontSize |
| FontUnderLine |
| GroupInterval |
| GroupOn |
| Index |
| Parent |
| Pattern |
| StartAt |
Siehe auch
Support und Feedback
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.