Объект 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 |
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.