Объект TaskDependencies (Project)
Содержит коллекцию объектов TaskDependency .
Пример
Использование объекта TaskDependency
Используйте TaskDependencies (index), где index — это индекс зависимостей, чтобы вернуть один объект TaskDependency . В следующем примере добавляется 1,5 дня задержки к связи между указанной задачей и предшественником, указанным в ее зависимости первой задачи.
ActiveProject.Tasks("Draft Initial Business Case").TaskDependencies(1).Lag = "1.5d"
Использование коллекции TaskDependencies
Используйте свойство TaskDependencies для возврата коллекции TaskDependencies . В следующем примере проверяется каждый предшественник для указанной задачи и отображается сообщение для каждого из них с приоритетом "Высокий" или лучше.
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
Используйте метод Add , чтобы добавить объект TaskDependency в коллекцию TaskDependencies . В следующем примере в связи "Предварительные исследования & утверждение" в качестве предшественника связывается с "Предварительные исследования & утверждение" с "Черновиком первоначального бизнес-примера" в отношениях "от начала до начала".
ActiveProject.Tasks("Draft Initial Business Case").TaskDependencies.Add ActiveProject.Tasks("Preliminary Research & Approval"), pjFinishToStart
Методы
Имя |
---|
Add |
Свойства
Имя |
---|
Application |
Count |
Item |
Parent |
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.