OutlineCode 物件 (專案)

代表本機大綱中的程式碼專案。 OutlineCode 物件是 OutlineCodes 集合的成員。

使用 OutlineCode 物件

下面範例新增自訂大綱代碼來儲存資源位置，並設定大綱代碼，如此只有在查閱表格中指定的值才可與資源相關聯。

Sub CreateLocationOutlineCode() 
    Dim objOutlineCode As OutlineCode 
 
    Set objOutlineCode = ActiveProject.OutlineCodes.Add( _
        pjCustomResourceOutlineCode1, "Location") 
 
    objOutlineCode.OnlyLookUpTableCodes = True 
 
    DefineLocationCodeMask objOutlineCode.CodeMask 
    EditLocationLookupTable objOutlineCode.LookupTable 
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

註解

大綱代碼為本機自訂欄位具有階層式文字查閱資料表的類型。 企業自訂欄位的類型 文字 擔任的階層式查閱表格的大綱代碼。 使用 OutlineCodes 屬性可傳回 OutlineCodes 集合。 使用 Add 方法將本機大綱代碼新增至 OutlineCodes 集合。 若要新增為企業自訂欄位，您必須使用Project Web App或 Project Server 介面 (PSI)。

方法

名稱
Delete

屬性

名稱
Application
CodeMask
DefaultValue
FieldID
Index
LinkedFieldID
LookupTable
MatchGeneric
名稱
OnlyCompleteCodes
OnlyLeaves
OnlyLookUpTableCodes
Parent
RequiredCode
SortOrder

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。