Objeto OutlineCodes (Project)
Contém uma coleção de objetos OutlineCode.
Comentários
Um código de estrutura de tópicos é um tipo de campo personalizado local que tem uma tabela de pesquisa de texto hierárquico. Campos personalizados da empresa do tipo texto com tabelas de pesquisa hierárquico agir como códigos de estrutura de tópicos. Use a propriedade OutlineCodes para retornar uma coleção OutlineCodes. Use o método Add para adicionar um código de estrutura de tópicos local à coleção OutlineCodes. Para adicionar um campo personalizado da empresa, você deve usar Project Web App ou o Project Server Interface (PSI).
Exemplo
Usando o objeto da coleção OutlineCodes
O exemplo a seguir adiciona um código de estrutura personalizado para armazenar o local dos recursos e configura o código de estrutura de modo que somente os valores únicos especificados na tabela de pesquisa possam ser associados a um recurso.
Observação
[!OBSERVAçãO] A propriedade OnlyLookUpTableCodes pode ser definida somente depois que a tabela de pesquisa contém entradas. Se você tentar definir OnlyLookUpTableCodes antes de criar entradas da tabela de pesquisa, o resultado é o tempo de execução erro 7, "sem memória."
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
Métodos
| Nome |
|---|
| Add |
Propriedades
| Nome |
|---|
| Aplicativo |
| Count |
| Item |
| Parent |
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.