包含 OutlineCode 物件的集合。
註解
大綱代碼為本機自訂欄位具有階層式文字查閱資料表的類型。 企業自訂欄位的類型 文字 擔任的階層式查閱表格的大綱代碼。 使用 OutlineCodes 屬性可傳回 OutlineCodes 集合。 使用 Add 方法將本機大綱代碼新增至 OutlineCodes 集合。 若要新增為企業自訂欄位，您必須使用Project Web App或 Project Server 介面 (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 |
| 數目 |
| 項目 |
| Parent |
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。