Task.LinkPredecessors-Methode (Project)

Fügt dem Vorgang mindestens einen Vorgänger hinzu.

Syntax

Ausdruck. LinkPredecessors( _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 Vorgänger 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.

Beispiel

Im folgenden Beispiel wird der Benutzer aufgefordert, den Namen eines Vorgangs einzugeben. Dieser Vorgang wird dann als Vorgänger der ausgewählten Vorgänge definiert.

Sub LinkTasksFromPredecessor() 
    Dim Entry As String   ' Task name entered by user 
    Dim T As Task         ' Task object used in For Each loop 
    Dim I As Long         ' Used in For loop 
    Dim Exists As Boolean ' Whether or not the task exists 
 
    Entry = InputBox$("Enter the name of a task:") 
 
    Exists = False ' Assume task doesn't exist. 
 
    ' Search active project for the specified task. 
    For Each T In ActiveProject.Tasks 
        If T.Name = Entry Then 
            Exists = True 
            ' Make the task a predecessor of the selected tasks. 
            For I = 1 To ActiveSelection.Tasks.Count 
                ActiveSelection.Tasks(I).LinkPredecessors Tasks:=T 
            Next I 
        End If 
    Next T 
 
    ' If task doesn't exist, display an error and quit the procedure. 
    If Not Exists Then 
        MsgBox ("Task not found.") 
        Exit Sub 
    End If 
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.