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

más sencilla.ResourceAssignment (recursos, operación, con)

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 separadores de miles o separadores decimales en los valores unitarios.
Operación	Opcional	Long	Si se omite la operación , Project asigna los recursos a las tareas seleccionadas. El valor predeterminado es pjAssign. Puede ser una de las constantes PjResAssignOperation.
With	Opcional	String	Cuando se usa con la constante pjReplace para Operación, especifica los nombres de los recursos que reemplazan a los recursos de las tareas seleccionadas.

Constantes PjResAssignOperation

Constante	Descripción
pjAsignar	Asigna los recursos especificados a las tareas seleccionadas.
pjEliminar	Quita los recursos especificados de las tareas seleccionadas.
pjReemplazar	Los recursos especificados por Con reemplazan los recursos especificados por Recursos.
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 demanda una asignación de recursos cuando se utiliza 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 forma, D especifica "Demanda", R especifica "Solicitud" y N especifica " Ninguna ". Además, no se permiten espacios entre el valor de unidades y el valor de Solicitud/Demanda. 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 puede solicitar o exigir un recurso material para una tarea 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.