Resource.MaterialLabel 属性 (Project)

获取或设置材料资源的标签。 读/写 String

语法

expressionMaterialLabel

表达 一个代表 Resource 对象的变量。

备注

MaterialLabel 属性不返回非材料资源,例如人员或机器的任何有意义的信息。 设置的值返回一个可捕获的错误 (错误代码为 1101年) 应用到非材料资源时。

示例

该示例将遍历当前项目中的资源列表,并将所有材料资源的材料标签都设置为“pallet”(该示例中的捕获错误只是为了说明如何处理预期例外)。 在真实示例中,可能包括如下测试:

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 支持和反馈,获取有关如何接收支持和提供反馈的指南。