Método Task.LinkSuccessors (Project)

Artigo
04/07/2023

Adiciona um ou mais sucessores à tarefa.

Sintaxe

expression. LinkSuccessors( _Tasks_, _Link_, _Lag_ )

Expressão Uma variável que representa um objeto Task .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Tarefas	Obrigatório	Object	O objeto Task ou Tasks especificado torna-se um sucessor da tarefa especificada com expression.
Link	Opcional	Long	Uma constante que especifica a relação entre as tarefas que se tornam vinculadas. Pode ser uma das seguintes constantes PjTaskLinkType . O valor padrão é pjFinishToStart.
Lag	Opcional	Variant	Uma string que especifica a duração de tempo de retardo entre tarefas vinculadas. Para especificar o tempo de avanço entre tarefas, use uma expressão de retardo que é avaliada como um valor negativo.

Valor de retorno

Nada

Exemplo

O exemplo a seguir cria duas tarefas e vincula a segunda como sucessora da primeira.

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

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.

Compartilhar via