Propriedade Task.GroupBySummary (Project)
True se o item selecionado em uma exibição de tarefa estiver em uma linha de resumo de grupo; caso contrário, False. Boolean somente leitura.
Sintaxe
expression. GroupBySummary
Expressão Uma variável que representa um objeto Task .
Comentários
Quando você aplica um comando Agrupar por para um modo de exibição de tarefa, as linhas de resumo de grupo mostram a definição de grupo na coluna Nome da tarefa. Se uma célula selecionada estiver em uma linha de resumo de grupo, a propriedade GroupBySummary é True.
A propriedade GroupBySummary é acessível através da propriedade ActiveCell.Task
, e não ActiveProject.Tasks(x)
.
Exemplo
O exemplo a seguir aplica o agrupamento Duração à exibição Gráfico de Gantt, seleciona a primeira célula de cada linha da exibição e testa se a linha é um resumo do grupo. O processo continua até que a linha fique vazia e mostra uma caixa de mensagem com os resultados do teste para cada linha.
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
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.