Поделиться через


Объект 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

См. также

Объектная модель Project

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.