Objeto GroupCriteria (Project)

Contiene un conjunto de objetos GroupCriterion.

Observaciones

Para los grupos en los que se puede mantener la jerarquía de grupo y el color de celda puede ser un valor hexadecimal, use el objeto de colección GroupCriteria2.

Ejemplo

Uso del objeto GroupCriterion

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

ActiveProject.ResourceGroups("Standard Rate").GroupCriteria(1).CellColor = pjBlue

Uso del conjunto GroupCriteria

Use la propiedad GroupCriteria para devolver una colección GroupCriteria. 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 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 el método Add para agregar un objeto GroupCriterion al conjunto GroupCriteria. 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.ResourceGroups("Response Pending").GroupCriteria.Add "% Work Complete", True, CellColor:=pjRed, GroupOn:=pjGroupOnPct1_25

Métodos

Nombre
Add

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.