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 milhares de separadores ou separadores decimal forem incluídos nos valores de unidade.
Operação	Opcional	Long	Se a 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 usado 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 Com substituem os recursos especificados pelos 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

Use o parâmetro Recursos para especificar se uma atribuição de recurso é solicitada ou exigida ao usar 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 usar o parâmetro Recursos dessa forma, D especifica "Demanda", R especifica "Solicitação" e N especifica "Nenhum". Além disso, os espaços não são permitidos entre o valor das unidades e o valor Solicitação/Demanda. 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. Portanto, você não pode solicitar ou exigir um recurso material para uma determinada atribuição usando o parâmetro Resources .

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.