Objeto GroupCriteria2 (Project)

Contiene una colección de objetos GroupCriterion2 donde se puede mantener la jerarquía de grupos y el color de celda puede ser un valor hexadecimal.

Ejemplo

Usar el objeto GroupCriterion2

Use **GroupCriteria2(**Index), dondeIndex es el índice de criterio, para devolver un único objeto GroupCriterion2 . En el siguiente ejemplo establece el color de celda para el primer criterio en el grupo de recursos Tasa estándar en azul.

ActiveProject.ResourceGroups2("Standard Rate").GroupCriteria2(1).CellColor = &HFF0000

Usar la colección GroupCriteria2

Use la propiedad GroupCriteria para devolver una colección GroupCriteria2. En el ejemplo siguiente se muestra una lista de los campos usados como criterios en el grupo de tareas especificado y, asimismo, si se ordenan de forma ascendente o descendente.

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

Use el método AddEx para agregar un objeto GroupCriterion2 a la colección GroupCriteria2 donde CellColor puede ser un valor hexadecimal. En el siguiente ejemplo se agrega otro criterio al grupo de recursos especificado, agrupando los recursos en orden ascendente por porcentaje de trabajo (en incrementos de 25 por ciento) que se haya terminado.

ActiveProject.ResourceGroups2("Response Pending").GroupCriteria2.AddEx "% Work Complete", True, _  
    CellColor:=&H0101FF, GroupOn:=pjGroupOnPct1_25

Métodos

Nombre
Add
AddEx

Propiedades

Nombre
Aplicación
Count
Elemento
Parent

Vea también

Modelo de objetos de Project

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.