Propiedad Task.ActualDuration (Project)

Obtiene o establece la duración real (en minutos) de una tarea. Es de sólo lectura para las tareas de resumen. Variant de lectura y escritura.

Sintaxis

expresión. ActualDuration

expresión Variable que representa un objeto Task .

Ejemplo

En el ejemplo siguiente se marcan las tareas del proyecto activo que tienen duraciones reales que superen el número de minutos especificado.

Sub MarkLongDurationTasks() 
 
 Dim T As Task ' Task object used in For Each loop 
 Dim Minutes As Long ' Duration entered by user 
 
 ' Prompt user for the actual duration, in minutes. 
 Minutes = Val(InputBox$("Enter the actual duration, in minutes: ")) 
 
 ' Don't do anything if the InputBox$ was cancelled. 
 If Minutes = 0 Then Exit Sub 
 
 ' Cycle through the tasks of the active project. 
 For Each T In ActiveProject.Tasks 
 ' Mark a task if it exceeds the duration. 
 If T.ActualDuration > Minutes Then T.Marked = True 
 Next T 
 
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.