Propiedad Task.GroupBySummary (Project)

True si el elemento seleccionado en una vista de tarea está en una fila de resumen de grupo; De lo contrario, False. Boolean de solo lectura.

Sintaxis

expresión. GroupBySummary

expresión Variable que representa un objeto Task .

Observaciones

Cuando se aplica un comando Agrupar por en una vista de tareas, las filas de resumen de grupo muestran la definición de grupo en la columna Nombre de tarea. Si una celda seleccionada se encuentra en una fila de resumen de grupo, la propiedad GroupBySummary es True.

La propiedad GroupBySummary es accesible a través de la propiedad ActiveCell.Task , no a través de ActiveProject.Tasks(x).

Ejemplo

En el siguiente ejemplo se aplica el agrupamiento Duración a la vista Diagrama de Gantt y, a continuación, se selecciona la primera celda de cada fila de la vista y se prueba si la fila es un resumen de grupo. El proceso continúa hasta que la fila está vacía y, a continuación, se muestra un cuadro de mensaje con los resultados de las pruebas para cada fila.

Sub ShowGroupByItems() 
 Dim isValid As Boolean 
 Dim tsk As Task 
 Dim rowType As String 
 Dim msg As String 
 
 isValid = True 
 msg = "" 
 
 ActiveProject.Views("Gantt Chart").Apply 
 GroupApply Name:="Duration" 
 Application.SelectBeginning 
 
 ' When a cell in an empty row is selected, accessing the ActiveCell.Task 
 ' property results in error 1004. 
 On Error Resume Next 
 
 ' Loop until a cell in an empty row is selected. 
 While isValid 
 Set tsk = ActiveCell.Task 
 
 If Err.Number > 0 Then 
 isValid = False 
 Debug.Print Err.Number 
 Err.Number = 0 
 Else 
 If tsk.GroupBySummary Then 
 rowType = "' is a group-by summary row." 
 Else 
 rowType = "' is a task row." 
 End If 
 
 msg = msg & "Task name: '" & tsk.Name & rowType & vbCrLf 
 SelectCellDown 
 End If 
 Wend 
 
 MsgBox msg, vbInformation, "GroupBy Summary for Tasks" 
 
End Sub

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.