Método Task.LinkPredecessors (Project)

Adiciona um ou mais predecessores à tarefa.

Sintaxe

expression. LinkPredecessors( _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 predecessor 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.

Exemplo

O exemplo a seguir solicita ao usuário o nome de uma tarefa e então faz com que esta se torne um predecessor das tarefas selecionadas.

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

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.