Propiedad Task.WBSPredecessors (Project)

Obtiene el desglose del trabajo códigos EDT (estructura) de las tareas predecesoras, separados por el separador de lista. String de solo lectura.

Sintaxis

expresión. WBSPredecessors

expresión Variable que representa un objeto Task .

Ejemplo

El ejemplo siguiente se solicita al usuario un identificador de tarea y luego se proporcionan los detalles de los códigos EDT de sus predecesoras de una forma más sencilla.

Sub EnumeratePredecessors() 
 Dim Task As Task 
 Dim PredTasks As Tasks 
 Dim ID As Long 
 Dim Predecessors As String 
 Dim List As String 
 Dim Count As Integer 
 
 ID = CLng(InputBox$("Enter the ID number of the task you wish to examine:")) 
 
 Set Task = ActiveProject.Tasks(ID) 
 Set PredTasks = Task.PredecessorTasks 
 Predecessors = Task.WBSPredecessors 
 Count = 1 
 
 If PredTasks.Count = 0 Then 
 List = "Task " & Task.UniqueID & ", " & Task.Name & ", has no predecessors." 
 Else 
 List = "Predecessors to task " & Task.UniqueID & ", " & Task.Name & ":" & vbCrLf & vbCrLf 
 Do While InStr(Predecessors, ListSeparator) <> 0 
 List = List & PredTasks(Count).Name & ": " & Mid$(Predecessors, 1, InStr(Predecessors, ListSeparator) - 1) & vbCrLf 
 Predecessors = Right$(Predecessors, Len(Predecessors) - InStr(Predecessors, ListSeparator)) 
 Count = Count + 1 
 Loop 
 List = List & PredTasks(Count).Name & ": " & Predecessors 
 End If 
 
 MsgBox List 
 
 Set PredTasks = Nothing 
 Set Task = Nothing 
End Sub

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.