Método Application.LinkTasksEdit (Project)

Edita dependências (links de tarefas) da tarefa.

Sintaxe

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

expressão Uma variável que representa um Aplicativo objeto.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
De	Obrigatório	Long	Longo. O número de identificação de uma tarefa predecessora.
To	Obrigatório	Long	Longo. O número de identificação de uma tarefa sucessora.
Delete	Opcional	Boolean	True se Project exclui o vínculo referenciado. O valor padrão é False.
Type	Opcional	Long	O relacionamento entre tarefas que se tornam vinculadas. Pode ser uma das seguintes constantes PjTaskLinkType . O valor padrão é pjFinishToStart.
Lag	Opcional	Variant	A duração entre tarefas vinculadas em unidades padrão. Para especificar tempo de espera entre tarefas, use um valor negativo.
PredecessorProjectName	Opcional	String	O nome do subprojeto em um projeto consolidado que contém a tarefa identificada com From. Se PredecessorProjectName for omitido, será considerado o projeto atual.
SuccessorProjectName	Opcional	String	O nome do subprojeto em um projeto consolidado que contém a tarefa identificada com a. Se SuccessorProjectName for omitido, será considerado o projeto atual.

Valor de retorno

Boolean

Exemplo

O exemplo a seguir solicita ao usuário um intervalo de números de identificação e então vincula as tarefas dentro deste intervalo, do começo ao fim. Este exemplo considera que o intervalo de IDs é válido, assim como a ausência de quaisquer tarefas duplicadas ou nulas, projetos consolidados, etc.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.