Objeto Tasks (Project)

Contiene una colección de objetos Task.

Ejemplo

Uso del objeto Task

Use Tasks (index), donde index es el número de índice de tarea o el nombre de la tarea, para devolver un único objeto Task . En el ejemplo siguiente se imprime los nombres de todos los recursos asignados a cada tarea del proyecto activo.

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

Utilice la propiedad Tasks para devolver un conjunto de tareas. En el ejemplo siguiente se muestra el nombre de cada tarea de la selección.

Dim T As Task, Names As String 

 

For Each T In ActiveSelection.Tasks 

 Names = Names & T.Name & vbCrLf 

Next T 

 

MsgBox Names

Utilice el método Add para agregar un objeto Task al conjunto Tasks. En el ejemplo siguiente se agrega una nueva tarea al final de la lista de tareas.

ActiveProject.Tasks.Add "Hang clocks"

Métodos

Nombre
Add

Propiedades

Nombre
Aplicación
Count
Elemento
Parent
UniqueID

Vea también

Modelo de objetos de Project

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.