Método Application.LinkTasksEdit (Project)

Modificaciones de tareas dependencias (vínculos de tarea).

Sintaxis

expresión. LinkTasksEdit( _From_, _To_, _Delete_, _Type_, _Lag_, _PredecessorProjectName_, _SuccessorProjectName_ )

expresión Variable que representa un objeto Application.

Parámetros

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
From	Obligatorio	Long	De tipo long. El número de identificación de una tarea predecesora.
To	Obligatorio	Long	De tipo long. El número de identificación de una tarea sucesora.
Delete	Opcional	Boolean	True si Project elimina el vínculo que se hace referencia. El valor predeterminado es False.
Type	Opcional	Long	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	Duración entre las tareas vinculadas en unidades predeterminadas. Para especificar tiempo de adelanto entre tareas, utilice un valor negativo.
PredecessorProjectName	Opcional	String	El nombre del subproyecto en un proyecto consolidado que contiene la tarea identificada con From. Si se omite PredecessorProjectName, se asume el proyecto actual.
SuccessorProjectName	Opcional	String	El nombre del subproyecto en un proyecto consolidado que contiene la tarea identificada con To. Si se omite SuccessorProjectName, se asume el proyecto actual.

Valor devuelto

Boolean

Ejemplo:

En el ejemplo siguiente se solicita al usuario un intervalo de números de identificación de tareas y, a continuación, se vinculan las tareas del intervalo de fin a comienzo. En este ejemplo se supone que el intervalo de números identificadores es válido, así como la ausencia de tareas duplicadas, tareas nulas, proyectos consolidados, etcétera.

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

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.