Método Application.ResourceAssignment (Project)

Atribui, remove ou substitui os recursos das tarefas selecionadas ou altera o número de unidades para um recurso.

Sintaxe

expressão. ResourceAssignment (Recursos, Operação, Com)

expressão Uma variável que representa um Aplicativo objeto.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Recursos	Opcional	String	Os nomes dos recursos a serem atribuídos, removidos ou substituídos nas tarefas selecionadas. Nota O Project não atribuirá um recurso se forem incluídos milhares de separadores ou separadores decimais nos valores unitários.
Operação	Opcional	Long	Se Operação for omitida, o Project atribui os recursos às tarefas selecionadas. O valor padrão é pjResSubstitutionResInProject. Pode ser uma das constantes PjResAssignOperation.
With	Opcional	String	Quando utilizado com a constante pjReplace para Operação, especifica os nomes dos recursos que substituem os recursos das tarefas selecionadas.

Constantes PjResAssignOperation

Constante	Descrição
pjAssign	Atribui os recursos especificados às tarefas selecionadas.
pjRemove	Remove os recursos especificados das tarefas selecionadas.
pjReplace	Os recursos especificados por Por substituem os recursos especificados por Recursos.
pjChange	Altera as unidades de recurso para o recurso especificado. Esta constante só pode ser usada para um único recurso.

Valor de retorno

Boolean

Comentários

Utilize o parâmetro Recursos para especificar que é pedida ou exigida uma atribuição de recursos ao utilizar o Assistente de Substituição de Recursos. Por exemplo, a macro a seguir especifica que a atribuição de r1 à tarefa selecionada é solicitada.

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

Observação

Ao utilizar o parâmetro Resources desta forma, D especifica "Demand", R especifica "Request" e N especifica "None". Além disso, não são permitidos espaços entre o valor units e o valor Request/Demand. Por exemplo, Resources:="100%,R" funciona, mas Resources:="100%, R" não aparecer.

O Assistente de substituição de recursos não pode substituir recursos materiais. Por conseguinte, não pode pedir ou exigir um recurso material para uma determinada atribuição através do parâmetro Recursos .

Exemplo

O exemplo a seguir solicita ao usuário o nome de um recurso e, em seguida, atribui esse recurso às tarefas selecionadas.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.