Objeto TaskDependencies (Project)
Contém uma coleção de objetos TaskDependency.
Exemplo
Usar o objeto TaskDependency
Use TaskDependencies (index), em que o índice é o índice de dependência, para retornar um único objeto TaskDependency . O exemplo a seguir adiciona 1,5 dias de retardo para o vínculo entre a tarefa especificada e o predecessor especificado na primeira dependência de tarefa.
ActiveProject.Tasks("Draft Initial Business Case").TaskDependencies(1).Lag = "1.5d"
Usando a coleção TaskDependencies
Use a propriedade TaskDependencies para retornar uma coleção TaskDependencies. O exemplo a seguir examina cada predecessor da tarefa especificada e exibe uma mensagem para cada um que tenha uma prioridade de "Alta" ou superior.
Dim TaskDep As TaskDependency
For Each TaskDep In ActiveProject.Tasks("Write Requirements Brief").TaskDependencies
If TaskDep.From.Priority > 500 Then
MsgBox "Task #" & TaskDep.From.ID & " (" & TaskDep.From.Name & ") " & _
"has a priority higher than medium."
End If
Next TaskDep
Use o método Add para adicionar um objeto TaskDependency à coleção TaskDependencies. O exemplo a seguir vincula "Preliminary Research & Approval" como predecessor de "Draft Initial Business Case" em uma relação término-a-início.
ActiveProject.Tasks("Draft Initial Business Case").TaskDependencies.Add ActiveProject.Tasks("Preliminary Research & Approval"), pjFinishToStart
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.