Método Task.LinkSuccessors (Project)

Agrega una o más sucesoras a la tarea.

Sintaxis

expresión. LinkSuccessors( _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 sucesor 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.

Valor devuelto

Nada

Ejemplo

En el ejemplo siguiente, se crean dos tareas y se vincula la segunda como sucesora de la primera.

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

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.