Объект Tasks (Project)
Содержит коллекцию объектов Task .
Пример
Использование объекта задачи
Используйте tasks (index), где index — это номер или имя задачи, чтобы вернуть один объект Task . В следующем примере выводятся имена каждого ресурса, назначенного каждой задаче в активном проекте.
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
Используйте свойство Tasks для возврата коллекции Tasks . В следующем примере показано имя каждой задачи в выделенном фрагменте.
Dim T As Task, Names As String
For Each T In ActiveSelection.Tasks
Names = Names & T.Name & vbCrLf
Next T
MsgBox Names
Используйте метод Add , чтобы добавить объект Task в коллекцию Tasks . В следующем примере новая задача добавляется в конец списка задач.
ActiveProject.Tasks.Add "Hang clocks"
Методы
| Имя |
|---|
| Add |
Свойства
| Имя |
|---|
| Application |
| Count |
| Item |
| Parent |
| UniqueID |
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.