Task.UnlinkSuccessors 方法 (Project)
移除任務的一個或多個後續任務。
語法
expression。 UnlinkSuccessors
( _Tasks_
)
表達 代表 Task 物件的變數。
參數
名稱 | 必要/選用 | 資料類型 | 描述 |
---|---|---|---|
工作 | 必要 | Object | 可以是 Task 或 Tasks 物件,指定一或多個任務加以移除做為後續任務。 |
傳回值
Nothing
範例
下面範例從使用中專案的每個任務中移除指定的後續任務。
Sub RemoveSuccessor()
Dim Entry As String ' Successor specified by user
Dim SuccTask As Task ' Successor task object
Dim T As Task ' Task object used in For Each loop
Dim S As Task ' Successor (task object) used in loop
Entry = InputBox$("Enter the name of a successor to unlink from every task in this project.")
Set SuccTask = Nothing
' Look for the name of the successor in tasks of the active project.
For Each T In ActiveProject.Tasks
If T.Name = Entry Then
Set SuccTask = T
Exit For
End If
Next T
' Remove the successor from every task in the active project.
If Not (SuccTask Is Nothing) Then
For Each T In ActiveProject.Tasks
For Each S In T.SuccessorTasks
If S.Name = Entry Then
T.UnlinkSuccessors SuccTask
Exit For
End If
Next S
Next T
End If
End Sub
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。