Nota
O acceso a esta páxina require autorización. Pode tentar iniciar sesión ou modificar os directorios.
O acceso a esta páxina require autorización. Pode tentar modificar os directorios.
Obtiene o establece la prioridad de la tarea. Variante de lectura y escritura.
Sintaxis
expresión. Prioridad
expresión Variable que representa un objeto Task .
Observaciones
La propiedad Priority puede ser un valor del 0 al 1000. Un valor de 1000 tiene el efecto de que la tarea no se nivela en una operación de nivelación. Dado que Priorityes variant, puede establecer la prioridad de la tarea 2 en 900, por ejemplo, con el código siguiente: activeproject.Tasks(2).Priority = "Highest". En la siguiente tabla se muestran los valores de la cadena y los valores de números enteros correspondientes para la propiedad Priority.
Nota:
[!NOTA] No use las constantes PjPriority que contienen valores del 0 al 9 únicamente pues corresponden a versiones anteriores de Project.
| String | Valor de prioridad |
|---|---|
| "No redistribuir" | 1000 |
| "Mayor que | 900 |
| "Muy alta" | 800 |
| "Más alta" | 700 |
| "Alta" | 600 |
| "Media" | 500 |
| "Baja" | 400 |
| "Más baja" | 300 |
| "Muy baja" | 200 |
| "Inferior" | 100 |
Project usa la propiedad de prioridad de la tarea de resumen del proyecto (tarea 0) para determinar cómo tratar las tareas durante la redistribución de recursos de varios proyectos. Si dos proyectos tienen prioridades iguales, se utiliza la prioridad para las tareas individuales. Puede establecer la prioridad de proyecto en el cuadro de diálogo Información del proyecto, o mostrar la tarea de resumen del proyecto en el diagrama de Gantt, seleccione la tarea y, a continuación, use una instrucción como ActiveCell.Task.Priority = 700.
Ejemplo
En el siguiente ejemplo se especifican las tareas en la ruta de acceso clave en un valor de prioridad muy alto en el proyecto activo.
Sub SetPriorityOfCriticalTasks()
Dim T As Task ' Task object used in For Each loop
' Look for tasks on the critical path.
For Each T In ActiveProject.Tasks
If T.Critical = True Then
T.Priority = 800
End If
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.