Método Application.ResourceAssignment (Project)

Asigna, elimina o reemplaza los recursos de las tareas seleccionadas o cambia el número de unidades de un recurso.

Sintaxis

expresión. ResourceAssignment (Resources, Operation, With)

expresión Variable que representa un objeto Application.

Parámetros

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Recursos	Opcional	String	Los nombres de los recursos que se desean asignar, quitar o reemplazar en las tareas seleccionadas. Nota Project no asignará un recurso si se incluyen miles de separadores o separadores decimales en los valores de unidad.
Operación	Opcional	Long	Si se omite Operation , Project asigna los recursos a las tareas seleccionadas. El valor predeterminado es pjAssign. Puede ser una de las constantes PjResAssignOperation.
With	Opcional	Cadena	Cuando se usa con la constante pjReplace para Operation, especifica los nombres de los recursos que reemplazan los recursos de las tareas seleccionadas.

Constantes PjResAssignOperation

Constante	Descripción
pjAssign	Asigna los recursos especificados a las tareas seleccionadas.
pjRemove	Quita los recursos especificados de las tareas seleccionadas.
pjReplace	Los recursos especificados por With reemplazan los recursos especificados por Resources.
pjChange	Cambia las unidades de recursos para el recurso especificado. Esta constante sólo se puede usar con un único recurso.

Valor devuelto

Boolean

Comentarios

Use el parámetro Resources para especificar que se solicita o exige una asignación de recursos al usar el Asistente para sustitución de recursos. Por ejemplo, la macro siguiente especifica que la asignación de r1 a la tarea seleccionada es una asignación requerida.

Sub RequestAssignment()
    ResourceAssignment Resources:="r1[100%, R]", Operation:=pjChange, With:="" 
End Sub

Nota:

Al usar el parámetro Resources de esta manera, D especifica "Demand", R especifica "Request" y N especifica "None". Además, no se permiten espacios entre el valor de unidades y el valor Request/Demand. Por ejemplo, works Resources:="100%,R" , pero Resources:="100%, R" no lo hace.

El Asistente para la sustitución de recursos no puede sustituir recursos materiales. Por lo tanto, no se puede solicitar ni exigir un recurso de material para una asignación determinada mediante el parámetro Resources .

Ejemplo:

En el ejemplo siguiente se solicita al usuario el nombre de un recurso y, a continuación, se asigna ese recurso a las tareas seleccionadas.

Sub AssignResourceToSelectedTasks() 
 
    Dim Entry As String     ' The name of the resource to add to selected tasks 
    Dim R As Resource       ' Resource object used in For Each...Next loop 
    Dim Found As Boolean    ' Whether or not the resource is in the active project 
 
    Entry = InputBox$("Enter the name of the resource you want to add to the selected tasks.") 
     
    ' Assume resource doesn't exist in the active project. 
    Found = False 
 
    ' Look for the resource. 
    For Each R In ActiveProject.Resources 
        If Entry = R.Name Then Found = True 
    Next R 
 
    ' If the resource is found, then assign it to selected tasks. 
    If Found Then 
        ResourceAssignment Resources:=Entry, Operation:=pjAssign 
    ' Otherwise, tell user the resource doesn't exist. 
    Else 
        MsgBox ("There is no resource in the active project named " & Entry & ".") 
    End If 
     
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.