Objeto GroupCriteria (Project)
Contém uma coleção de objetos GroupCriterion.
Comentários
Para grupos onde a hierarquia de grupo pode ser mantida e a cor da célula pode ser um valor hexadecimal, use o objeto de coleção GroupCriteria2.
Exemplo
Usando o objeto GroupCriterion
Use **GroupCriteria(**Index), emque Index é o índice de critério, para retornar um único objeto GroupCriterion . O exemplo a seguir define a cor de célula para o primeiro critério no grupo de recursos taxa padrão como azul.
ActiveProject.ResourceGroups("Standard Rate").GroupCriteria(1).CellColor = pjBlue
Usar a coleção GroupCriteria
Use a propriedade GroupCriteria para retornar uma coleção GroupCriteria. O exemplo a seguir exibe uma lista de campos usados como critério no grupo de tarefas especificadas e se elas estão classificadas em ordem crescente ou decrescente.
Dim GC As GroupCriterion
Dim Fields As String
For Each GC In ActiveProject.TaskGroups("Priority Keeping Outline Structure").GroupCriteria
If GC.Ascending = True Then
Fields = Fields & GC.Index & ". " & GC.FieldName & " is sorted in ascending order." & vbCrLf
Else
Fields = Fields & GC.Index & ". " & GC.FieldName & " is sorted in descending order." & vbCrLf
End If
Next GC
MsgBox Fields
Use o método Add para adicionar um objeto GroupCriterion à coleção GroupCriteria. O exemplo a seguir adiciona outro critério ao grupo de recurso especificado, agrupando recursos em ordem crescente conforme determinado pela porcentagem do seu trabalho (em incrementos de 25 por cento) que está concluída.
ActiveProject.ResourceGroups("Response Pending").GroupCriteria.Add "% Work Complete", True, CellColor:=pjRed, GroupOn:=pjGroupOnPct1_25
Métodos
Nome |
---|
Add |
Propriedades
Nome |
---|
Aplicativo |
Count |
Item |
Parent |
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.
Comentários
https://aka.ms/ContentUserFeedback.
Em breve: Ao longo de 2024, eliminaremos os problemas do GitHub como o mecanismo de comentários para conteúdo e o substituiremos por um novo sistema de comentários. Para obter mais informações, consulteEnviar e exibir comentários de