Метод Task.LinkSuccessors (Project)

Статья
04/07/2023

Добавляет в задачу одного или нескольких преемников.

Синтаксис

выражение. LinkSuccessors( _Tasks_, _Link_, _Lag_ )

Выражение Переменная, представляющая объект Task .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Tasks	Обязательный	Object	Указанный объект Task или Tasks становится преемником задачи, указанной с помощью выражения.
Link	Необязательный	Long	Константы, указывающие связь между задачами, которые становятся связанными. Может быть одной из констант PjTaskLinkType . Значение по умолчанию — pjFinishToStart.
Lag	Необязательный	Variant	Строка, указывающая длительность задержки между связанными задачами. Чтобы указать время выполнения между задачами, используйте выражение для параметра Lag , которое принимает отрицательное значение.

Возвращаемое значение

Отсутствует

Пример

В следующем примере создаются две задачи и связывается вторая задача в качестве преемника с первой.

Sub Link_Successors() 
    Dim SuccessorTask As Task 
    Dim PredecessorTask As Task 
 
    'Activate Task Sheet view 
    ViewApply Name:="Task Sheet" 
 
    ' Create a coupe of tasks 
    RowInsert 
    SetTaskField Field:="Name", Value:="TestTask-2" 
    SetTaskField Field:="Duration", Value:="1" 
 
    RowInsert 
    SetTaskField Field:="Name", Value:="TestTask-1" 
    SetTaskField Field:="Duration", Value:="2" 
 
    'link them 
    Set PredecessorTask = ActiveProject.Tasks("TestTask-1") 
    Set SuccessorTask = ActiveProject.Tasks("TestTask-2") 
 
    PredecessorTask.LinkSuccessors Tasks:=SuccessorTask, Link:=pjFinishToStart 
 
    'delete the tasks 
    PredecessorTask.Delete 
    SuccessorTask.Delete 
End Sub

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

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

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