Task.UnlinkSuccessors メソッド (Project)

タスクから 1 つ以上の後続タスクを削除します。

構文

式。 UnlinkSuccessors( _Tasks_ )

式Task オブジェクトを表す変数。

パラメーター

名前	必須 / オプション	データ型	説明
タスク	必須	オブジェクト型 (Object)	削除された 1 つまたは複数のタスクを後続タスクに指定している タスク または タスク オブジェクトにすることができます。

戻り値

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 のサポートおよびフィードバックを参照してください。