Объект OutlineCodes (Project)

Содержит коллекцию объектов OutlineCode .

Замечания

Код структуры — это тип локального настраиваемого поля с иерархической таблицей подстановки текста. Корпоративные настраиваемые поля типа Text , имеющие иерархические таблицы подстановки, выступают в качестве кодов структуры. Используйте свойство 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
Count
Item
Parent

См. также

Объектная модель Project

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

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