Метод Task. Унлинксукцессорс (Project)Task.UnlinkSuccessors method (Project)

Удаляет одного или нескольких последователей из задачи.Removes one or more successors from the task.

СинтаксисSyntax

выражение.expression. UnlinkSuccessors( _Tasks_ )UnlinkSuccessors( _Tasks_ )

Expression (выражение ) Переменная, представляющая объект Task .expression A variable that represents a Task object.

ПараметрыParameters

ИмяName Обязательный или необязательныйRequired/Optional Тип данныхData type ОписаниеDescription
ЗадачаTasks ОбязательныйRequired ObjectObject Может быть объектом Task или tasks , который определяет одну или несколько задач, которые удаляются как последователи.Can be a Task or Tasks object, which specifies one or more tasks that are removed as successors.

Возвращаемое значениеReturn value

NothingNothing

ПримерExample

В следующем примере показано удаление указанного последователя из каждой задачи в активном проекте.The following example removes the specified successor from every task in the active project.

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

Поддержка и обратная связьSupport and feedback

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи?Have questions or feedback about Office VBA or this documentation? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.