Project) (Application.LinkTasksEdit 方法

编辑任务相关性 (任务链接)。

语法

expression。 LinkTasksEdit( _From_, _To_, _Delete_, _Type_, _Lag_, _PredecessorProjectName_, _SuccessorProjectName_ )

expression：表示 Application 对象的变量。

参数

名称	必需/可选	数据类型	说明
From	必需	Long	长 。 前置任务的标识号。
To	必需	Long	长 。 后续任务的标识号。
Delete	可选	Boolean	如此 如果项目会删除被引用的链接。 默认值为 False 。
Type	可选	Long	所链接的任务之间的关系。 可以是PjTaskLinkType常量之一。 默认值是 pjFinishToStart 。
Lag	可选	Variant	以默认单位表示的链接的任务之间的工期。 若要指定任务间的前置重叠时间，请使用负值。
PredecessorProjectName	可选	String	合并项目中包含由 从 标识的任务的子项目的名称。 如果省略 PredecessorProjectName ，则假定当前的项目。
SuccessorProjectName	可选	String	合并项目中包含由 到 标识的任务的子项目的名称。 如果省略 SuccessorProjectName ，则假定当前的项目。

返回值

Boolean

示例

以下示例将提示用户输入任务标识号的范围，然后从尾至头链接该范围内的任务。 本示例假设标识号范围有效，并假设不存在任何重复的任务、空任务和合并项目等。

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 支持和反馈，获取有关如何接收支持和提供反馈的指南。