Application.LinkTasksEdit method (Project)

Изменение зависимостей задач (связей задач).

Синтаксис

выражение. LinkTasksEdit( _From_, _To_, _Delete_, _Type_, _Lag_, _PredecessorProjectName_, _SuccessorProjectName_ )

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
From	Обязательный	Long	Длинный. Идентификационный номер задачи-предшественника.
Для	Обязательный	Long	Длинный. Идентификационный номер последующей задачи.
Delete	Необязательный	Логический	True , если Project удаляет ссылку, на которую указывает ссылка. Значение по умолчанию — False.
Type	Необязательный	Long	Отношение между задачами, которые становятся связанными. Может быть одной из констант PjTaskLinkType . Значение по умолчанию: pjFinishToStart.
Lag	Необязательный	Variant	Длительность между связанными задачами в единицах по умолчанию. Чтобы указать время опережения между задачами, используйте отрицательное значение.
PredecessorProjectName	Необязательный	String	Имя подпроекта в консолидированном проекте, содержащем задачу, обозначенную параметром "От". Если параметр PredecessorProjectName опущен, предполагается текущий проект.
SuccessorProjectName	Необязательный	String	Имя подпроекта в консолидированном проекте, содержащем задачу, обозначенную с помощью Кому. Если параметр SuccessorProjectName опущен, предполагается текущий проект.

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

Boolean

Пример

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

Sub LinkFinishToStart() 
 
    Dim FirstID As String ' The ID number of the first task 
    Dim LastID As String ' The ID number of the last task 
    Dim NextID As Long ' The ID number of the next task to link 
 
    FirstID = InputBox$("Enter the ID number of the first task to link:") 
    If FirstID = Empty Then Exit Sub 

    LastID = InputBox$("Enter the ID number of the last task to link:") 
    If LastID = Empty Then Exit Sub 
 
    ' Convert FirstID from String to Long, then "seed" the loop. 
    NextID = CLng(FirstID) 
 
    Do Until NextID = CLng(LastID) 
        LinkTasksEdit From:=NextID, To:=NextID + 1, Type:=pjFinishToStart 
        NextID = NextID + 1 
    Loop 
End Sub

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

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