Task.LinkPredecessors 方法 (Project)

  • 项目

向任务添加一个或多个前置任务。

语法

expression。 LinkPredecessors( _Tasks_, _Link_, _Lag_ )

表达 一个代表 Task 对象的变量。

参数

名称 必需/可选 数据类型 说明
Tasks 必需 Object 指定的 任务 或 任务 对象将成为使用 表达式 指定该任务的前置任务。
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 支持和反馈，获取有关如何接收支持和提供反馈的指南。