Project) (Application.LinkTasksEdit 方法

編輯任務相依性 (任務連結)。

語法

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

expression 代表 Application 物件的變數。

參數

名稱	必要/選用	資料類型	描述
From	必要	Long	長 。 前置任務的識別碼。
To	必要	Long	長 。 後續任務的識別碼。
Delete	選用	Boolean	True 是表示 如果 Project 會刪除參考的連結。 預設值為 False 。
Type	選用	Long	連結任務之間的關係。 可以是下列PjTaskLinkType常數之一。 預設值為 pjFinishToStart 。
Lag	選用	Variant	已連結之任務間的工期 (採用預設單位)。 若要指定任務之間的前置重疊時間，請使用負值。
PredecessorProjectName	選用	String	包含工作具有 從 一個合併專案中的子專案的名稱。 如果省略 PredecessorProjectName ，則會假設目前的專案。
SuccessorProjectName	選用	String	包含用 來 識別工作一個合併專案中的子專案的名稱。 如果省略 SuccessorProjectName ，則會假設目前的專案。

傳回值

布林值

範例

下面範例提示使用者輸入任務識別碼的範圍，然後從尾至頭連結該範圍內的任務。 此範例假設識別碼範圍有效，並假設不存在任何重覆任務、空任務、合併專案等等。

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