Compartir a través de

Propiedad Resource.MaterialLabel (Project)

  • Artículo

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 Resource .

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 pasa por la lista de recursos del proyecto actual y se establece la etiqueta de material de todos los recursos de material en "pallet". (El captura de errores de este ejemplo solo sirve para ilustrar cómo puede 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.