Propiedad Resource.MaterialLabel (proyecto)

Obtiene o establece la etiqueta de un recurso material. String de lectura y escritura.

Sintaxis

expresión. MaterialLabel

expresión Variable que representa un objeto de recursos .

Comentarios

La propiedad MaterialLabel no devuelve ninguna información significativa para recursos no materiales, como personas o máquinas. Si se establece un valor devuelve un error capturable (código de error 1101) cuando se aplica a recursos no materiales.

Ejemplo

En este ejemplo se analiza la lista de recursos del proyecto actual y se establece la etiqueta de material de todos los recursos materiales en "paleta". (La captura de errores en este ejemplo es solo para ilustrar cómo podría controlar una excepción esperada. En un caso real, probablemente incluiría una prueba como la siguiente:

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

La prueba garantizará que solo asigne la etiqueta necesaria a ladrillos, ladrillos rojos y así sucesivamente.

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

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.