Метод Task.LinkPredecessors (Project)

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

Синтаксис

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

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

Параметры

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

Пример

В следующем примере пользователю предлагается ввести имя задачи, а затем задача является предшественником выбранных задач.

Sub LinkTasksFromPredecessor() 
    Dim Entry As String   ' Task name entered by user 
    Dim T As Task         ' Task object used in For Each loop 
    Dim I As Long         ' Used in For loop 
    Dim Exists As Boolean ' Whether or not the task exists 
 
    Entry = InputBox$("Enter the name of a task:") 
 
    Exists = False ' Assume task doesn't exist. 
 
    ' Search active project for the specified task. 
    For Each T In ActiveProject.Tasks 
        If T.Name = Entry Then 
            Exists = True 
            ' Make the task a predecessor of the selected tasks. 
            For I = 1 To ActiveSelection.Tasks.Count 
                ActiveSelection.Tasks(I).LinkPredecessors Tasks:=T 
            Next I 
        End If 
    Next T 
 
    ' If task doesn't exist, display an error and quit the procedure. 
    If Not Exists Then 
        MsgBox ("Task not found.") 
        Exit Sub 
    End If 
End Sub

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

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