Compartir a través de

Objeto OutlineCode (Project)

  • Artículo

Representa un código de esquema local en el proyecto. El objeto OutlineCode es un miembro de la colección OutlineCodes.

Uso del objeto OutlineCode

En el siguiente ejemplo se agrega un código de esquema personalizado para almacenar la ubicación de los recursos y se configura el código de esquema de modo que sólo se puedan asociar al recurso los valores especificados en la tabla de consulta.

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

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).

Métodos

Nombre
Delete

Propiedades

Nombre
Application
CodeMask
DefaultValue
FieldID
Índice
LinkedFieldID
LookupTable
MatchGeneric
Name
OnlyCompleteCodes
OnlyLeaves
OnlyLookUpTableCodes
Parent
RequiredCode
SortOrder

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.