Свойство Resource.MaterialLabel (Project)

Возвращает или задает метку для материального ресурса. Для чтения и записи, String.

Синтаксис

выражение. MaterialLabel

Выражение Переменная, представляющая объект Resource .

Замечания

Свойство MaterialLabel не возвращает никаких значимых сведений о нематериальных ресурсах, таких как люди или компьютеры. Установка значения возвращает перехватываемую ошибку (код ошибки 1101) при применении к нематериальным ресурсам.

Пример

В этом примере рассматривается список ресурсов в текущем проекте и устанавливается метка материала для всех материальных ресурсов как "поддон". (В этом примере перехват ошибок показан только для того, чтобы продемонстрировать, как можно обработать ожидаемое исключение. В реальном примере вы, вероятно, включите такой тест, как показано ниже.

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

Тест гарантирует, что вы назначите метку материала только тротуаным кирпичам, красным кирпичам и т. д.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.