Método Task.LinkPredecessors (Project)

Agrega una o más predecesoras a la tarea.

Sintaxis

expresión. LinkPredecessors( _Tasks_, _Link_, _Lag_ )

Expresión Variable que representa un objeto Task .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Tasks	Obligatorio	Object	El objeto Task o Tasks especificado se convierte en predecesor de la tarea especificada en la expresión.
Link	Opcional	Long	Constante que especifica la relación entre las tareas que se convierten en vinculadas. Puede ser una de las constantes PjTaskLinkType . El valor predeterminado es pjFinishToStart.
Lag	Opcional	Variant	Una cadena que especifica la duración del tiempo de posposición entre las tareas vinculadas. Para especificar el tiempo de entrega entre las tareas, use una expresión de posposición que da como resultado un valor negativo.

Ejemplo:

En el ejemplo siguiente se solicita al usuario que escriba el nombre de una tarea y, a continuación, se convierte esa tarea en predecesora de las tareas seleccionadas.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.