Objeto OutlineCodes (Project)
Contiene una colección de objetos OutlineCode.
Comentarios
Un código de esquema es un tipo de campo personalizado local que tiene una tabla de búsqueda de texto jerárquica. Campos personalizados de empresa del tipo de texto que tienen tablas de búsqueda jerárquica actúan como códigos de esquema. Utilice la propiedad OutlineCodes para devolver un conjunto OutlineCodes. Utilice el método Add para agregar un código de esquema local a la colección OutlineCodes. Para agregar un campo personalizado de empresa, debe utilizar Project Web App o Project Server Interface (PSI).
Ejemplo:
Usar el objeto de colección OutlineCodes
En el siguiente ejemplo se agrega un código de esquema personalizado para almacenar la ubicación de los recursos y configurar el código de esquema para que sólo se puedan asociar al recurso los valores especificados en la tabla de búsqueda.
Nota:
[!NOTA] La propiedad OnlyLookUpTableCodes puede establecerse sólo después de la tabla de búsqueda contiene entradas. Si intenta establecer OnlyLookUpTableCodes antes de crear entradas de la tabla de búsqueda, el resultado es el error de tiempo de ejecución 7, "memoria insuficiente."
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
| Nombre |
|---|
| Add |
Propiedades
| Nombre |
|---|
| Aplicación |
| Count |
| Elemento |
| Parent |
Vea también
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.