Project) (OutlineCodes 对象
包含 OutlineCode 对象的集合。
备注
大纲代码是一种本地具有层次结构的文本查阅表格的自定义域。 企业大纲代码起作用的 文本 类型具有层次结构的查阅表格的自定义域。 使用 OutlineCodes 属性返回一个 OutlineCodes 集合。 使用 Add 方法可向 OutlineCodes 集合中添加一个本地的大纲代码。 若要添加企业自定义字段，必须使用Project Web App或项目服务器接口 (PSI)。
示例
使用 OutlineCodes 集合对象
以下示例添加自定义大纲代码，以便存储资源的位置，并配置大纲代码使得只有在查阅表格中指定的值可以与资源相关联。
注意
只有在查阅表格包含条目之后，才能设置 OnlyLookUpTableCodes 属性。 如果在创建查阅表格条目之前尝试设置 OnlyLookUpTableCodes，则将产生运行时错误 7“内存不足”。
Sub CreateLocationOutlineCode()
Dim objOutlineCode As OutlineCode
Set objOutlineCode = ActiveProject.OutlineCodes.Add( _
pjCustomResourceOutlineCode1, "Location")
DefineLocationCodeMask objOutlineCode.CodeMask
EditLocationLookupTable objOutlineCode.LookupTable
objOutlineCode.OnlyLookUpTableCodes = True
End Sub
Sub DefineLocationCodeMask(objCodeMask As CodeMask)
objCodeMask.Add _
Sequence:=pjCustomOutlineCodeUppercaseLetters, _
Length:=2, Separator:="."
objCodeMask.Add _
Sequence:=pjCustomOutlineCodeUppercaseLetters, _
Separator:="."
objCodeMask.Add _
Sequence:=pjCustomOutlineCodeUppercaseLetters, _
Length:=3, Separator:="."
End Sub
Sub EditLocationLookupTable(objLookupTable As LookupTable)
Dim objStateEntry As LookupTableEntry
Dim objCountyEntry As LookupTableEntry
Dim objCityEntry As LookupTableEntry
Set objStateEntry = objLookupTable.AddChild("WA")
objStateEntry.Description = "Washington"
Set objCountyEntry = objLookupTable.AddChild("KING", _
objStateEntry.UniqueID)
objCountyEntry.Description = "King County"
Set objCityEntry = objLookupTable.AddChild("SEA", _
objCountyEntry.UniqueID)
objCityEntry.Description = "Seattle"
Set objCityEntry = objLookupTable.AddChild("RED", _
objCountyEntry.UniqueID)
objCityEntry.Description = "Redmond"
Set objCityEntry = objLookupTable.AddChild("KIR", _
objCountyEntry.UniqueID)
objCityEntry.Description = "Kirkland"
End Sub
方法
| 名称 |
|---|
| Add |
属性
| 名称 |
|---|
| Application |
| Count |
| 项目 |
| Parent |
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。