Application.LinkTasksEdit method (Project)

Artikel
04/07/2023

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.

Freigeben über