Propriedade Resource.MaterialLabel (Project)

Obtém ou define o rótulo de um recurso material. Cadeia de caracteres de leitura/gravação.

Sintaxe

expression. MaterialLabel

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

Comentários

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

Exemplo

Este exemplo passa pela lista de recursos no projeto atual e define o rótulo de material para todos os recursos materiais como "pallet". (O erro de captura neste exemplo é apenas para ilustrar como você pode lidar com uma exceção esperada. Em uma utilização real, provavelmente seria incluído um teste como o seguinte:

If InStr(R.Name, "bricks") <> 0 Then...

O objetivo do teste seria garantir que você atribua o rótulo de material somente a pedras de calçada, tijolos e assim por diante.

Sub FixLabels() 
 Dim R As Resource 
 
 On Error GoTo ErrTrap: 
 
 For Each R In ActiveProject.Resources 
 If R.MaterialLabel <> "pallet" Then R.MaterialLabel = "pallet" 
 Next R 
 
 Exit Sub 
 
ErrTrap: 
 If Err.Number = 1101 Then 
 Err.Clear 
 Resume Next 
 Else 
 MsgBox Err.Description, vbExclamation, "Error" 
 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.