Application.LinkTasksEdit method (Project)

Bearbeitet anordnungsbeziehungen (Verknüpfungen Aufgabe).

Syntax

Ausdruck. LinkTasksEdit( _From_, _To_, _Delete_, _Type_, _Lag_, _PredecessorProjectName_, _SuccessorProjectName_ )

expression Eine Variable, die ein Application-Objekt darstellt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
From Erforderlich Long Lange. Die Identifikationsnummer des Vorgängervorgangs.
To Erforderlich Long Lange. Die Identifikationsnummer des einen Nachfolger.
Delete Optional Boolean True, wenn Project den Link verwiesen wird gelöscht. Der Standardwert ist False.
Typ Optional Long Die Beziehung zwischen, die zu verknüpfenden Vorgängen. Dies kann eine der PjTaskLinkType -Konstanten sein. Der Standardwert ist PjFinishToStart.
Lag Optional Variant Die Dauer zwischen verknüpften Aufgaben in Standardeinheiten. Um Zeitabstand zwischen Vorgängen anzugeben, verwenden Sie einen negativen Wert ein.
PredecessorProjectName Optional String Der Name des Teilprojekts in ein zusammengeführtes Projekt mit der Aufgabe identifiziert mit aus. Wenn PredecessorProjectName ausgelassen wird, wird davon ausgegangen, dass das aktuelle Projekt.
NachfolgerProjektname Optional String Der Name des Teilprojekts in ein zusammengeführtes Projekt, das den mit zum angegebenen Vorgang enthält. Wenn SuccessorProjectName ausgelassen wird, wird davon ausgegangen, dass das aktuelle Projekt.

Rückgabewert

Boolean

Beispiel

Im folgenden Beispiel wird der Benutzer aufgefordert, einen Bereich von Aufgabenidentifikationsnummern anzugeben, und dann werden die Aufgaben im Bereich von Ende bis Anfang verknüpft. In diesem Beispiel wird davon ausgegangen, dass der ID-Bereich gültig ist, sowie das Fehlen von doppelten Vorgängen, NULL-Vorgängen, konsolidierten Projekten usw.

Sub LinkFinishToStart() 
 
    Dim FirstID As String ' The ID number of the first task 
    Dim LastID As String ' The ID number of the last task 
    Dim NextID As Long ' The ID number of the next task to link 
 
    FirstID = InputBox$("Enter the ID number of the first task to link:") 
    If FirstID = Empty Then Exit Sub 

    LastID = InputBox$("Enter the ID number of the last task to link:") 
    If LastID = Empty Then Exit Sub 
 
    ' Convert FirstID from String to Long, then "seed" the loop. 
    NextID = CLng(FirstID) 
 
    Do Until NextID = CLng(LastID) 
        LinkTasksEdit From:=NextID, To:=NextID + 1, Type:=pjFinishToStart 
        NextID = NextID + 1 
    Loop 
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.