Объект OutlineCode (Проект)

Представляет локальный код структуры в Project. Объект 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

Замечания

Код структуры — это тип локального настраиваемого поля с иерархической таблицей подстановки текста. Корпоративные настраиваемые поля типа Text , имеющие иерархические таблицы подстановки, выступают в качестве кодов структуры. Используйте свойство OutlineCodes для возврата коллекции OutlineCodes . Используйте метод Add , чтобы добавить локальный код структуры в коллекцию OutlineCodes . Чтобы добавить настраиваемое поле предприятия, необходимо использовать Project Web App или интерфейс Project Server (PSI).

Методы

Имя
Delete

Свойства

Имя
Application
CodeMask
DefaultValue
FieldID
Index
LinkedFieldID
LookupTable
MatchGeneric
Name
OnlyCompleteCodes
OnlyLeaves
OnlyLookUpTableCodes
Parent
RequiredCode
SortOrder

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

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