Task.LinkSuccessors 方法 (Project)

會將後續任務新增至任務。

語法

expression。 LinkSuccessors( _Tasks_, _Link_, _Lag_ )

表達 代表 Task 物件的變數。

參數

名稱	必要/選用	資料類型	描述
工作	必要	Object	指定的 Task 或 Tasks 物件會變成使用 expression 所指定之任務的任務的後續任務。
Link	選用	Long	常數，指定會成為連結的任務之間的關係。 可以是下列PjTaskLinkType常數之一。 預設值為 pjFinishToStart 。
Lag	選用	Variant	指定的期間連結任務之間的延遲時間的字串。 若要指定任務之間的前置重疊時間，請使用運算式 延隔時間 為負值。

傳回值

無

範例

下列範例會建立兩個任務，並將第二個任務做為後續任務連結到第一個任務。

Sub Link_Successors() 
    Dim SuccessorTask As Task 
    Dim PredecessorTask As Task 
 
    'Activate Task Sheet view 
    ViewApply Name:="Task Sheet" 
 
    ' Create a coupe of tasks 
    RowInsert 
    SetTaskField Field:="Name", Value:="TestTask-2" 
    SetTaskField Field:="Duration", Value:="1" 
 
    RowInsert 
    SetTaskField Field:="Name", Value:="TestTask-1" 
    SetTaskField Field:="Duration", Value:="2" 
 
    'link them 
    Set PredecessorTask = ActiveProject.Tasks("TestTask-1") 
    Set SuccessorTask = ActiveProject.Tasks("TestTask-2") 
 
    PredecessorTask.LinkSuccessors Tasks:=SuccessorTask, Link:=pjFinishToStart 
 
    'delete the tasks 
    PredecessorTask.Delete 
    SuccessorTask.Delete 
End Sub

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。