Objeto Tasks (Project)
Contém uma coleção de objetos Task.
Exemplo
Usando o objeto Task
Use Tarefas (índice), em que o índice é o número do índice de tarefa ou o nome da tarefa, para retornar um único objeto Task . O exemplo a seguir imprime os nomes de todos os recursos atribuídos a cada tarefa do projeto ativo.
Dim Temp As Long, A As Assignment
Dim TaskName As String, Assigned As String, Results As String
For Temp = 1 To ActiveProject.Tasks.Count
TaskName = "Task: " & ActiveProject.Tasks(Temp).Name & vbCrLf
For Each A In ActiveProject.Tasks(Temp).Assignments
Assigned = A.ResourceName & ListSeparator & " " & Assigned
Next A
Results = Results & TaskName & "Resources: " & _
Left$(Assigned, Len(Assigned) - Len(ListSeparator & " ")) & vbCrLf & vbCrLf
TaskName = ""
Assigned = ""
Next Temp
MsgBox Results
Use a propriedade Tasks para retornar uma coleção Tasks. O exemplo a seguir exibe o nome de cada tarefa da seleção.
Dim T As Task, Names As String
For Each T In ActiveSelection.Tasks
Names = Names & T.Name & vbCrLf
Next T
MsgBox Names
Use o método Add para adicionar um objeto Task à coleção Tasks. O exemplo a seguir adiciona uma nova tarefa ao final da lista de tarefas.
ActiveProject.Tasks.Add "Hang clocks"
Métodos
| Nome |
|---|
| Add |
Propriedades
| Nome |
|---|
| Aplicativo |
| Count |
| Item |
| Responsável |
| UniqueID |
Confira também
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.