Task.LinkSuccessors-Methode (Project)

Artikel
04/07/2023

Fügt dem Vorgang mindestens einen Nachfolger hinzu.

Syntax

Ausdruck. LinkSuccessors( _Tasks_, _Link_, _Lag_ )

Ausdruck Eine Variable, die ein Task-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Aufgaben	Erforderlich	Object	Das angegebene Task oder Tasks -Objekt wird zum Nachfolger des durch Expression angegebenen Vorgangs.
Link	Optional	Long	Eine Konstante, die die Beziehung zwischen Aufgaben gibt an, die verknüpft werden. Dies kann eine der PjTaskLinkType -Konstanten sein. Der Standardwert ist PjFinishToStart.
Lag	Optional	Variant	Eine Zeichenfolge, die Dauer der Zeitabstand zwischen Vorgängen angibt. Um Zeitabstand zwischen Vorgängen anzugeben, verwenden Sie einen Ausdruck für die Verzögerung, die auf einen negativen Wert ausgewertet wird.

Rückgabewert

Nichts

Beispiel

Im folgenden Beispiel werden zwei Vorgänge erstellt und der zweite Vorgang mit dem ersten als Nachfolger verknüpft.

Sub Link_Successors() 
    Dim SuccessorTask As Task 
    Dim PredecessorTask As Task 
 
    'Activate Task Sheet view 
    ViewApply Name:="Task Sheet" 
 
    ' Create a coupe of tasks 
    RowInsert 
    SetTaskField Field:="Name", Value:="TestTask-2" 
    SetTaskField Field:="Duration", Value:="1" 
 
    RowInsert 
    SetTaskField Field:="Name", Value:="TestTask-1" 
    SetTaskField Field:="Duration", Value:="2" 
 
    'link them 
    Set PredecessorTask = ActiveProject.Tasks("TestTask-1") 
    Set SuccessorTask = ActiveProject.Tasks("TestTask-2") 
 
    PredecessorTask.LinkSuccessors Tasks:=SuccessorTask, Link:=pjFinishToStart 
 
    'delete the tasks 
    PredecessorTask.Delete 
    SuccessorTask.Delete 
End Sub

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über