Task.LinkPredecessors 方法 (Project)

會將前置任務新增至任務。

語法

expression。 LinkPredecessors( _Tasks_, _Link_, _Lag_ )

表達 代表 Task 物件的變數。

參數

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

範例

下面範例提示使用者輸入一個任務名稱，然後將其指定為選取任務的前置任務。

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 支援與意見反應。