Метод Application.LinkTasksEdit (Project)

Статья
04/07/2023

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

Синтаксис

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

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
From	Обязательный	Long	Долго. Идентификационный номер задачи-предшественника.
Для	Обязательный	Long	Долго. Идентификационный номер задачи-преемника.
удаление;	Необязательный	Логический	Значение true, если Project удаляет ссылку, на нее указывает ссылка. Значение по умолчанию — False.
Type	Необязательный	Long	Связь между задачами, которые становятся связанными. Может быть одной из констант PjTaskLinkType . Значение по умолчанию — pjFinishToStart.
Lag	Необязательный	Variant	Длительность между связанными задачами в единицах по умолчанию. Чтобы указать время выполнения между задачами, используйте отрицательное значение.
PredecessorProjectName	Необязательный	String	Имя подпроекта в консолидированном проекте, который содержит задачу, определяемую с помощью From. Если параметр PredecessorProjectName опущен, предполагается, что текущий проект.
SuccessorProjectName	Необязательный	String	Имя подпроекта в консолидированном проекте, который содержит задачу, определяемую с помощью To. Если свойство 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 и обратная связь.

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