Propriedade Resource.MaxUnits (Project)

Obtém ou define a disponibilidade de porcentagem máxima do recurso. Leitura/gravação Variant.

Sintaxe

expression. MaxUnits

Expressão Uma variável que representa um objeto Resource .

Comentários

A disponibilidade percentual é especificada na coluna Unidade da linha atual da grade Disponibilidade do Recurso da caixa de diálogo Informações sobre o Recurso. A linha atual é o intervalo de datas entre as colunas Disponível de e Disponível para e inclui a data atual.

A propriedade MaxUnits não retorna informações significativas para recursos materiais. Configurar um valor retorna um erro interceptável (código de erro 1101) se for aplicado a recursos materiais.

Exemplo

O exemplo a seguir define o máximo de unidades de cada recurso no projeto ativo com um número especificado pelo usuário.

Sub SetDefaultMaxUnits() 
 
 Dim Entry As String ' Maximum units specified by user 
 Dim R As Resource ' Resource object used in loop 
 
 Entry = InputBox$("Enter the default maximum units for each resource.") 
 
 If IsNumeric(Entry) Then 
 For Each R In ActiveProject.Resources 
 R.MaxUnits = Entry 
 Next R 
 Else 
 MsgBox ("You didn't enter a numeric value.") 
 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.